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MONITOR INTERNAL INFORMATION 

( 

1.0 HOW TO USE THE MONITOR 
1.1 Data File Format 

AIPOS data files have two parts: HEADER and DATA. 

The HEADER portion is composed of one primary header block and several 
optional secondary header blocks. 

The primary header block contains information about the number of 
header blocks, the number of data blocks, and the data file in general. 
Its format is fixed as follows: 

Loc 0 Number of header blocks 

Loc 1 Number of data blocks 

Loc 2 Data format code 

0101 1 word integers 

0202 2 word integers 

0203 2 word fractions 

0304 3 word floating point 

Loc 3- 

Loc 4 Number of data points in the file (2 word integer) 

Loc 5- 

Loc 17 Reserved 

Loc 20- Maximum value of the data file in 3 word floating point 
Loc 22 format 

Loc 24- Minimum value of the data file in 3 word floating point 
Loc 26 format 

Loc 30- 

Loc 377 Reserved 

The secondary header blocks contain information on particular programs 
in AIPOS. 

Loc 0 of all secondary header blocks contains a code defining the 
particular systems program. Currently, codes 1, 2, and 3 are as¬ 
signed . 
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It is the responsibility of the programs that generated the secondary 
header blocks to set the format of the remaining locations of the 
secondary header blocks. 

The block in the DATA portion of AIPOS data files contain the data 
points whose format is defined in the primary header block. 

The number of data points per data block varies with the data format: 


1 word integers 

2 word integers 

2 word fractions 

3 word floating point 


256 10 

points 

per 

block 

128 10 

points 

per 

block 

128 10 

points 

per 

block 

85 10 

points 

per 

block 


The last location of each floating point data block is unused. 


1.2 Monitor Organization 

The AIPOS core-resident Monitor provides device-independent I/O ser¬ 
vices and arbitrary, device-specific interrupt handling for all pro¬ 
grams in the system. Because the system is structured in this way, 
each application program can be written with minimum concern for the 
details of device manipulation and control', yet where necessary for 
special needs or problems, the program has direct access to the hard¬ 
ware. In general, therefore, each program is free of the need for 
special I/O routines (and consequently the need to debug each routine), 
while the availability of a new peripheral on the system improves the 
power of every program, without recoding each one. Clearly, the soft¬ 
ware is as easily expandable as the hardware, and the user who wishes 
to add to his machine configuration need not worry about rewriting his 
programs to take advantage of it. 

Similarly, file handling and command interpretation are handled by the 
Job Control Language processor at the beginning and end of every pro¬ 
gram run. The program itself need never be concerned with index struc- 
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ture or generalized command decoding, since these problems are handled 
by JCL, which converts the appropriate command and file information to 
a convenient table form for the application program. 

The following information on the Monitor is included in this manual for 
the programmer who wishes to add a program to AIPOS. It is suggested 
that the AIPOS Internal Descriptions also be read. 


The basic resident AIPOS Monitor occupies locations 200-2577 of field 
0. Page 0 is allocated as follows: 


0-1 8-mode interrupt 

2-7 reserved for Monitor 1 


1 


10-15 

available 

for user program 

16 

interrupt 

stack pointer 

17 

Monitor call stack pointer 

20-37 

addresses 

of user-callable Monitor routines 

20 

SETINT 

enable interrupt handler 

21 

READ 


22 

WRITE 


23 

WAIT 


24 

MWAIT 2 

multiple WAIT 

25 

EXIT 

return to Job Control 

26 

ABORT 2 


27 

INTPSH 


30 

INTPOP 


40-43 

LINCmode 

interrupt 

44-137 

available 

for user program. Loaded by load 

40-177 

reserved 

for Monitor use 


Optional Monitor facilities, available via conditional assembly in the 
Monitor, will increase the highest address used by the Monitor. These 
facilities include support of optional I/O devices, plus a grid table 
and character display routine for ASCII or DIAL codes. 


The loader, when requested, loads locations 44-137 and 2600-7577 of 
field 0, and any location in field 1. 


Page 37 of field 0 (locations 7600-7777) serves as a communication re¬ 
gion between Job Control and the user program. The information stored 


1 These six locations, tagged TMP1, TMP2,...,TMP6, are used by the Moni¬ 
tor as temporaries during user Monitor calls, but never in interrupt 
processing. The user may, therefore, use these locations as tempor¬ 
aries, with the knowledge that they may be destroyed by any Monitor 
call. 

Reserved, but not yet implemented. 
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here is file information, parameter strings, etc., and is passed in 
12„ word blocks having the following format: 

O 

0 unit number 

I block length (1 if not tape or disk) 

2-4 file name (6 characters stripped ASCII) 

5-6 extension 

7 auxiliary (taken from index entry) 

10 starting block of file 

II length in blocks 


Bits 0 and 1 of the unit word (word 0) have the following meanings: 


Bit 0: Permanent/Temporary file. When the application 

program is called, this bit is zero if Job Con¬ 
trol allocated new file space for this file, 
one if the file existed prior to loading the 
program. The bit will always be set for input 
files. 

Bit 1: Input/Output. This bit is zero for files speci¬ 

fied as input in the command string (i.e., speci¬ 
fied to the right of the equals sign), and one 
for output files (including working areas). 

Upon normal EXIT, Job Control will scan the de¬ 
scriptor blocks, making permanent index entries 
for those files whose descriptor blocks have 
both bits 0 and 1 set. 


Words 2-11 are copied directly from the index of the specified device, 
if tape or disk. Otherwise, 2-6 contain blanks, 7 and 10 contain 
zeros, and 11 contains 7777. 


These file parameter blocks are in page 37 as follows: 


1600 

7612 

7624 

7636 

7650 

7662 

7674 

1106 

1120 

7732 

7744 

7745-47 

7750-55 

7756 

7757 
1160-11 


Command input file descriptor 
Load file descriptor 

First output file, or first working area descriptor 
if no current files 

Second output file or working area descriptor 

Third output file or first input file descriptor 

I/O file descriptor 

I/O file descriptor 

I/O file descriptor 

I/O file descriptor 

I/O file descriptor 

Highest valid CDF for this machine 
Unassigned 

Various data break locations 
Unassigned 

Two's complement of parameter string length 
Parameter string in DIAL code (packed 6 bit) 
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A convention has been established for use of the Monitor EXIT routine: 
Normal exit from any application program is a JMP instruction, whereas 
error exits are a JMS. This distinction allows the Monitor to suppress 
saving of files when an application program is aborted, either by 
CTRL/C or under program control. 

1.3 I/O Facilities 

The standard calling sequence for I/O routines is as follows: 


CLA /not necessary if AC is clear 

RIF /not necessary if in field 0 

CIF 0 /not necessary if in field 0 

JMS I READ (or WRITE) 

PARAM /pointer to parameter list in this field 


Immediately following the JMS is the address of a parameter list in 
the same field, whose format is: 


PARAM, UNIT 

CDF Y 
BUFFER 

( BUFLEN 

BLOCK 


0 

0 


/I/O unit code (see table below) 
/field containing buffer 
/address of buffer in field 
/length of buffer in words (0 
/implies 4096.^) 

/starting blk *of transfer if 

/tape or disk. Ignored on sequential 

/devices 

/two words used for 
/queueing requests 


When the program jumps to READ or WRITE, the Monitor sets bit 0 of the 
unit code, and may change bits 1 through 5. The Monitor also destroys 
words 5 and 6 of the list in the process of queueing the request. The 
rest of the parameter list is not modified by the Monitor and must not 
be modified by the user until bit 0 of word zero is cleared. (This is 
the Monitor's indication that the operation is complete.) When the 
Monitor returns from the JMS, the link is set, the AC is zero, and the 
instruction and data fields are the same as they were before entering 
the calling sequence. All data transfers are limited to one field, 
that specified by the CDF instruction in the parameter list. 
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The unit code assignments are: 


Mnemonic 

Code 


Meaning 


9 

Illegal 




1-17 

Reserved for later implementation of 
logical units 

LT0-7 

20-27 

LINCtape units 0-7 

DK0-3 

30-33 

RK8 disk drivers 0-3 

TTY 

40 

Console teleprinter 

TTY1-TTY7 1 

41-47 

Remote teleprinters 

MT0-3 1 

50-53 

MAGtapes 

PTR, PTP 1 

54 

High speed paper tape reader and punch 

CDR, CDP 1 
LPT 1 

55 

Card reader and punch 

56 

Line printer 


57 

Unassigned 

DSP, DSA 

60 

ASCII character display 

DSD 

61 

DIAL code character display 


62-67 

Reserved for plotter and other displays 


70-77 

Unassigned 


Internally, all references to I/O units are via the above codes. 


Externally, all references are by the mnemonics. 


Despite the common unit code for teleprinter input and output, the key 
board and printer are handled as logically distinct devices, and opera 
tions on them may be in progress concurrently. If the user program 
requests both input and output on the teleprinter, his output request 
will be honored immediately, but will be interrupted to echo anything 
typed by the operator. If no input has been requested, on the other 
hand, anything typed by the operator (except CTRL/C) is ignored, and 
output messages are not affected. 


The user program may test for completion of any operation by examining 
bit 0 of word 0 of his parameter list, as follows: 


TAD PARAM /get status 

SPA CLA /skip if operation complete 

JMP POTDONE /not done yet 


Alternatively, a Monitor call is provided for the same purpose. The 
calling sequence is identical to that for I/O operations. 

Reserved, but not yet implemented. 
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CLA 


/not necessary if AC is zero 

RIF 


/unnecessary in field 0 

CIF 

0 

/unnecessary in field 0 

JMS I 

WAIT 

/wait for completion 

PARAM 


/of this operation 


The Monitor returns when bit 0 of the specified parameter list is zero, 
i.e., the operation is complete. (Note that ALT MODE is stored in the 
user's buffer as octal 233 whenever any of the characters 233, 375, or 
376 is typed on the keyboard. The parity bit (200) is forced on before 
any keyboard character is stored in the user's buffer. 


1.4 Interrupt Facilities 


The Interrupt Handler is set up as follows: 


CLA / 

RIF / 

CIF 0 /Not necessary if IF already = 0 

JMS I SETINT /Enable interrupt handler 

IOT /Skip on desired flag 

HANDLER /Address of interrupt handler 

/in this field 


The location following the JMS is assumed to be an IOT skip instruc¬ 
tion. The next location is the address of an interrupt handler for 
the particular flag tested. The handler must be in the same field as 
the initialization call. When an interrupt occurs, and the tested flag 
causes a skip, the Monitor will JMS to the specified handler. AC and 
LINC may be anything, data and instruction fields will be the user's 
field (i.e., the instruction field when the SETINT was done). If the 
MQ is used, it must be saved and restored. If LINC mode adds are used, 
the FLO flip-flop must be saved and restored. 

If the handler address is 7777, the specified skip instruction is re¬ 
moved from the polling sequence, thereby effectively disabling the 
specified interrupt handler. The maximum number of interrupts which 
may be enabled at any one time is specified at system assembly time, 
and includes interrupts from I/O devices in operation due to read/ 
write calls not yet satisfied. 
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For each enabled interrupt (that is, each one for which a SETINT is 
active) the Monitor sets up the following instruction sequence: 


IOT 

JMP .+3 
CIF CDF X 
JMS I USER 


/Skip taken from SETINT call 
/Test next if flag not set 
/Set to user's field 
/Call user's routine 


Disabling an interrupt overlays the IOT with a NOP (7)30)3) . When 
SETINT is called to enable an interrupt, the chain is scanned first to 
find an identical IOT. If a match is found, it is NOPed. Then the 
chain is scanned again, this time for a NOP. When one is found, the 
CIF CDF is replaced to address the user's field, the appropriate entry 
in the list of user routine addresses is set, and finally, the NOP is 
replaced by the IOT skip. 


Each time an interrupt occurs, the entire chain is scanned once to en¬ 
sure that all flags can be serviced with a minimum of overhead. It is 
the responsibility of the user to clear flags before returning. Fail¬ 
ure to do so will result in an infinite interrupt loop. 


It is also the user's responsibility to ensure that the time taken by 
his interrupt routine is small. 


Two Monitor routines are provided to allow a user's interrupt routine 
to be interruptable. These routines are INTPSH and INTPOP. They save 
and restore, respectively, the system status at the time of the inter¬ 
rupt so that other interrupts may be serviced as necessary during the 

execution of the user's interrupt routine. Calling sequences are: 

CLA 

RIF 

CIF 0 

JMS I INTPSH 

ION 

. /interruptable portion of user's 

. /interrupt service routine 

CLA 

RIF 

CIF 0 

IOF 

JMS I INTPOP 
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Note that these routines provide for saving of system status, but not 
the status of the user's interrupt routine. Therefore, the user must 
protect against being re-entered by another interrupt from the same de¬ 
vice. At the minimum, this means that the device flag must be cleared 
before calling INTPSH. 

The programmer must make a clear distinction between interrupt service 
routines (i.e., synchronous or real-time routines) and background pro¬ 
grams. At interrupt time, only two Monitor routines may be called: 
INTPSH and INTPOP. Since this rule can not be enforced by the Monitor, 
the programmer must use care not to violate it, and is warned that vi¬ 
olations will be punished by pseudo-random, intraceable, and unrepro- 
ducable system crashes. 

1.5 Control Characters 

Control characters (that is, those characters whose ASCII codes are 

between 200 and 237 octal, inclusive) may optionally be trapped to a 

user program, to be handled at his discretion. To use this facility, 

the user program must store in location 177 (symbolic TTPCTL) of field 

0, the address of a subroutine to handle control characters. From this 

time until EXIT, CTRL/C, or restoration of location 177, all control 

1 

characters typed on the console TTY will be passed to the user sub¬ 
routine. The subroutine may ignore the character, in which case it 
will be handled as before or it may request that the character be 
echoed as up-arrow followed by the character typed with control, or it 
may request that the character be completely ignored, neither stored 
in the buffer nor echoed. The subroutine may even change the character, 
in which case the new character will be treated as though it had been 
typed. 

The user subroutine is called at interrupt time, whether or not a read 
is currently active on the TTY, after clearing the flag and turning in¬ 
terrupts on, by the following instruction sequence: 

1 TTY is an abbreviation for Teletype, a registered trademark of Teletype 
Corporation 





JMS I 
CHAR 

NORMAL RETURN: JMP 


"+X" RETURN: JMS 

"IGNORE" RETURN:JMP 


177 

/THE CONTROL CHAR IS HERE 
NRM/IF INPUT ACTIVE, ECHO CHAR AND 
/STORE IN USER'S BUFFER 

ECHO/ECHO AS UP ARROW AND CHAR 
IGNORE 


The user subroutine must obey the conventions of interrupt time routines: 
it must not call the Monitor, it must be short, and it must not call 
any routines which are also called by the background. It also must not 
attempt to do any I/O on the TTY. 

1.6 Index Facilities 

The LDP System tapes are 1600 g blocks long, each block contain¬ 

ing 400 g (256-^) words. The first block is reserved for index and 
initial loading information. 

All index entries have the following general form: 

File name is extended to 6 charac¬ 
ters with blanks if necessary 

Period + (3 chars) 

1 word 

(12 bit unsigned integer) 

(12 bit integer) 


FILE NAME 
(6 CHARS) 


FILE EXT 


AUXILIARY 


STARTING 

BLK 


LENGTH 


Empty index entries are filled with blanks in the name area. The auxi¬ 
liary word is unused by the system, amd may therefore be used by user 
programs for whatever purpose is deemed appropriate. 

There may be several index blocks on a device. A tape will ordinarily 
have four. In any case, the first three entries of the first index 
block (block 0) are reserved and are used as follows: 
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Word Contents 


J0-4 12g char tape ID 

5 400 g (block length) 

6 4-(starting block of file area) 

“ length of index 

7 160j3g - (total blocks on device) 

10-25 Reserved for bootstrap program 

26 First block of Job Control 

27 Length of Job Control 


1 
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2.0 ASSEMBLY INSTRUCTIONS 


The AIPOS system source programs can be modified by the programmer to 
individualize his system. Assembly instructions for the system pro¬ 
grams are included in this section. Note that a previous version of 
the program on the same LDP volume with the same name should be deleted 
just before the new version is created on that volume. All assembly 
instructions in this section are described in three steps: 

1. Preparing the DIAL binary 

2. Preparing the AIPOS binary 

3. Manipulating the AIPOS index (this step is not always 
necessary). 

2.1 Monitor 

2.1.1 Preparing the DIAL Binary 

The LDP Monitor consists of two CHAINed DIAL-MS^ sources, MA01 and MB01. 
A LISTAPE 14 pseudo-op in MB01 facilitates cross-referencing of the 
files. Note that any modification to the Monitor requires reassembling 
the DIAL-MS Job Control file JLnn so that the JLnn file will have the 
correct Monitor symbols. Use the following sequence of DIAL-MS com¬ 
mands to assemble the Monitor: 

— ZE j) 

-AS MA02,u J 
— SB MB02,u J 

where u is the appropriate DIAL unit and J 'is carriage return. 

2.1.2 Preparing the AIPOS Binary 

Load the LDP system (refer to Appendix A of the AIPOS User's Manual, 
DEC-12-SQ1A-D) and then call the program INIT. 

No index manipulation is required after INIT has been used for the 
Monitor. 

"''LAP 6-DIAL-MS is referred to as DIAL-MS in this manual. 
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2.2 Job Control 


2.2.1 Preparing the DIAL Binary 

The Job Control Processor is a combination (via Add Binary) of three 
separate assemblies, the sources for which are JL02, CM02, XSA02 and 
XSB02 (02 is the current version number for each source). Each source 
contains a LISTAPE 14 pseudo-op to allow the output to be CREF'ed. 

XSA contains a chain statement to XSB, which must be on the same unit. 

The Job Control Processor, therefore, may be assembled by the following 
sequence of DIAL-MS commands: 

- ZE^ 

— AS J L0 2 f u 

- SB JL02,u J 

— ZE J 

-AS CM02,u J 
-SB CM.0 2 , u J 

— ZE J 

-AS XSA02,u ) 

-SB XSA02,u ) 

—)AB CM02,u J 
-AB JL02,u J 
-SB JOBCTL, u J 

where u is the appropriate DIAL unit. Note that the Monitor must be 
reassembled before Job Control unless the SAVSYM area was saved from 
the last time the Monitor was assembled. 

2.2.2 Preparing the AIPOS Binary 

Load the LDP system and then call the program INIT. 

After responding properly to INIT's messages, this version of the Job 
Control Processor can be run. 
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2.3 DORA 


2.3.1 Preparing the DIAL Binary 

DORA is comprised of fifteen sources: DC, DA, DAI, DA2, DA3, DB, OVR/3, 
0VR1, 0VR2, OVR3, OVR4, OVR5, 0VR6, ADA and ADB. The program is com¬ 
prised of two main binaries (DA and DB) and a series of overlays. The 
LDP binary file DORA.BIN is created from the above DIAL sources. ADA 
and ADB are one-block sources which describe the assembly of the main 
sources. To assemble the DA binary, assemble the source ADA. The 
sources that define the binary DA are DC, DA, DAI, DA2, and DA3. These 
sources may be on any DIAL unit. The source ADA defines (via = state¬ 
ments) those units that contain the DA sources. For example: DA2U=11 
means that the source DA2 is located on unit 11. To avoid chaining er¬ 
rors, ADA must be consistent with the actual location of the DA sources 
at assembly time. The binary DB is assembled by assembling the source 
ADB; the sources DC and DB define the binary DB. The overlay sources 
OVR)3-OVR6 and ADA and ADB have no unit restrictions. 

Use the following sequence of DIAL-MS commands to assemble DORA: 

ZE^ 

-AS-ADA,u J 
—SB DA,uj 

-. ZE J 

-AS ADB,u^) 

-.SB DB,uJ 

—ZE^ 

—AS OVRK,uJ (K=0 6) 

— SB OVRK,u*> 

—ZE-> 

"*AB DB,u J 
—AB DA,u J 
-SB DORA,u,P036 00 J 

where u is the appropriate DIAL unit. 
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2.3.2 Preparing the AIPOS Binary 


Load the LDP system. Delete a previous version of DORA if present. 
Then call the program BUILD by issuing a command in the form: 

dev:BUILD dev:DORA 


Use the following information when responding to BUILD's messages: 


primary binary 
secondary binaries 
scratch blocks 
working areas 


DORA 

OVRK for K=0 , 1,. . . , 6 

3 

2 


DORA can now be loaded and run. No AIPOS index manipulation is required. 


2.4 File Handling Functions 
2.4.1 Preparing the DIAL Binary 

Three CHAINed sources comprise the file handling programs: FORCH, FORA, 
and FORB. 


The symbol DA is defined as the FORA device. DB is defined as the FORB 
device. An example of a FORCH configuration is as follows: 

DA=11 

DB=0 

CHAIN "FORA" DA 

The above configuration would be used if FORA were on unit 11 and FORB 
were on unit 0. 


Use the following sequence of DIAL-MS commands to assemble FORCH: 

- ZE J 

-AS FORCH , u J 

-SB FORCH,u,P10200 J 


where u is the appropriate DIAL unit. 
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2.4.2 Preparing the AIPOS Binary 


Load the LDP system and then call the program BUILD by issuing a com¬ 
mand in the form 


dev:BUILD dev:CREATE 

Use the following information when responding to BUILD'S messages: 


primary binary FORCH 

secondary binaries 0 

scratch blocks 0 

working areas 1 


2.4.3 Manipulating the AIPOS Index 


The other file handling functions are placed on the LDP volume using 
the Alias facility of DISPLAY INDEX. Call the DX function and then re¬ 
quest the Alias option. From the existing file CREATE.BIN, create the 
five new file names: 


INTERP.BIN 
TRANS.BIN 
PRINT.BIN 
DISHDR.BIN 
FIXHDR.BIN 


2.5 BUILD 

2.5.1 Preparing the DIAL Binary 

The DIAL sources for BUILD (version 1) are assembled by the following 
sequence of DIAL-MS commands: 

Hze J 

-*AS B01,u V 
-*SB B01,P04000 J 

where u is the appropriate unit. 

2.5.2 Preparing the AIPOS Binary 

If BUILD is to be created on the non-systems volume, proceed as follows. 
Load the LDP system and then call the program BUILD by issuing a command 
in the form: 
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dev:BUILD dev:BUILD 


where the first part of the command is the function that will be used 
Csystems device) and the second part is the new file that will be cre¬ 
ated. Use the following information when responding to BUILD'S messages 


primary binary B01 

secondary binaries 0 

scratch blocks 0 

working areas 0 


If the BUILD program being created is to replace the version currently 
on the systems volume, special precautions are required. The suggested 
procedure is as follows: 


( 


1. Call DISPLAY INDEX and use the delete facility to 
remove the file INIT.BIN. Then return to Job Control. 

This sequence appears on the Teletype as: 

dev:DX J 
DINIT.BIN J 

J 

2. Call BUILD from Job Control and create the output 
file INIT: 

dev:BUILD dev:INIT J 

3. Respond to the BUILD displays as follows: 

Bj01,u J 

J 

J 

J 

where u is the DIAL unit containing the file INIT. 

4. After returning to Job Control, request DISPLAY INDEX 
and rename the old BUILD file. Then Alias the INIT 
file to be the new BUILD file. 

dev:DX J 
RBUILD.BINJ 
BUILD.BAK J 
AINIT.BIN J 
BUILD.BIN J 

When a new volume is initialized, it is often inconvenient to obtain 
the binary files to be stored on it from DIAL-MS files. In this case, 
it is preferable to use the MOVE facility to copy the binary files from 
one LDP volume to another. If, for instance, the programs BUILD, DORA, 
and MOVE (which are on disk 0) are desired on the fresh initialized tape 
on unit 1, the following sequence of commands should be used: 
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MOVE LT1:BUILD.BIN=DK0:BUILD.BINJ 
MOVE LTl -.DORA.BIN=DKJ0 rDORA.BIN J 
MOVE LTl:MOVE.BIN=DK0:MOVE.BIN J 

Note, too, that since INXT.BIN is merely an alias of BUILD.BIN, it is 
not necessary to MOVE it separately. It is sufficient to use the Alias 
facility of DISPLAY INDEX. Similarly, MOVE'S aliases may be created 
on the new volume. 
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3.0 INTERNAL DESCRIPTION 


This description is intended to be read with a listing of the Monitor. 

3.1 Assembling the Monitor 

Source of the Monitor consists of two DIAL-MS source files, respect¬ 
ively MAnn and MBnn, where nn is the current version number. MAnn 
contains a CHAIN statement for MBnn on the same unit. MBnn contains 
a LISTAPE 14 statement to facilitate cross-referencing. The Monitor 
is assembled and saved by the following DIAL commands. 

-* ZE ) 

AS MAnn,u ) 

~*i SB MBnn,u J 

If the Monitor has been modified. Job Control module JLnn should be 
reassembled immediately after this, since correct system operation 
depends on JL having the correct Monitor symbols. 

3.2 Calling Sequences 

Standard calling sequence for d.1 Monitor services is CLA (if AC 
is not clear,) then RIF; CIF 0, (these two instructions are not 
necessary if the caller is in field zero), then a JMS indirect to 
the appropriate Monitor location, followed by the addresses of 
appropriate parameters. The first Monitor routine to be considered 
is SETINT, which is used by the operating program to enable an 
interrupt handler. A call to SETINT transfers control to location 
ISETR in the Monitor (approximately 600 ). ISETR calls MNTR, a Monitor 
subroutine which is used for saving status of the system at the time 
of the call. MNTR saves the current data field, the caller's field 
and the return address before returning to its caller. ISETR then 
searches the list of IOT skips beginning at INTSCN to find an IOT 
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which matches the one specified by the caller. If the match is found, 
that IOT is replaced with a NOP (octal 7000 ). Then the address of the 
handler subroutine specified by the user is tested to see whether it 
is 7777. If it is, then this call is understood to be a request to 
delete an interrupt handler; otherwise, the handler address is stored 
into a list of addresses at INTADD and the IOT specified by the caller 
is moved into the Interrupt Scan Chain INTSCN. ISETR then returns 
via the subroutine MXIT which restores the state of the machine at the 
time of the call, pops the Monitor stack, and returns to the caller. 

3.3 I/O Routines 

The Read and Write routines, READR and WRITR, respectively, are called 
in a manner similar to that used for SETINT. In the location following 
the JMS is the address of a parameter list in the same field which has the 
standard format for all I/O requests. That format is: the first word con¬ 
tains unit indication in the internal form, the second word contains a CDF 
instruction pointing to the field containing the user's buffer, the third 
location is the address of the user's buffer within the specified field, 
the fourth location is the length of the buffer in words, the fifth loca¬ 
tion is the block number if the request refers to a Mass Storage Device. 

Clt is ignored otherwise.) The sixth and seventh locations are used by 
the Monitor for queueing I/O requests. READR and WRITR then each call the 
subroutine MNTR. (The WRITR routine moves its return address to location 
.READR, and sets the Read/Write switch to -1. At this point, 
the two routines run in parallel at location IOCOM which stores the 
address of the user's parameter list in location TMP5, decodes the unit 
class (that is, bits 6-8 of the unit word) and jumps to the appropriate 
I/O subroutine as determined by ULIST, a list of I/O device handlers by 
unit class. Two subroutines, ENQ and DEQ, are used by almost all I/O 
handlers to control the queueing of I/O operations as required by the 
Monitor. ENQ is called with a pointer to the "queue pointer" by each 
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device routine as it is necessary to queue each I/O request. ENQ 
examines the queue pointer (which is contained in the device routine) 
and takes a skip return if the I/O request is the first for this parti¬ 
cular device, does not skip if there are other I/O operations in progress. 

In the latter case, the I/O request at this time is chained to preceding 
I/O requests such that it can be removed from the list as preceding requests 
are satisfied. Each queue pointer has the following format: 

The first word is the CDF instruction pointing to the current I/O 
operation or a zero if there is no I/O operation in progress on the 
particular unit to which this queue pointer refers. The second word 
is the address of the current I/O list. The third word is a CDF instruc¬ 
tion pointing to the buffer for this I/O request. The fourth word is 
the address of the buffer, updated appropriately as the transfer takes 
place. The fifth word is the number of words remaining to transfer 
in this operation, in 2's complement form, and the sixth word is 
the current block number for the transfer. The second, third, and 
fifth words, therefore, are direct copies of the corresponding 
information in the user's I/O request. The fourth word is the 2's 
complement of the user's request. The first two words are CDF in¬ 
structions pointing to the field of the call and the second word is 
the parameter list address specified in the call. 

ENQ turns interrupts off to prevent the possibility of an interrupt aris¬ 
ing from an I/O request being satisfied while ENQ is in progress. The 
first word of the specified queue pointer is tested. If it is zero, then 
there is no activity on the particular device specified and appropriate 
parts of the parameter list are copied into the caller's queue pointer. If 
there is a CDF instruction in the first location of the queue pointer, 
then the queue is active and the new I/O request is chained to preceding 
I/O requffits by storing CDF and the address of the new I/O request in 



the last two words of the preceding parameter list. ENQ then returns 
to the calling I/O handler. DEQ operates in approximately the reverse 
fashion. It is called, with interrupts off, at the time that a parti¬ 
cular request has been satisfied. DEQ clears bit 0 of the unit word of 
the current parameter list, thereby indicating to the calling program 
that the I/O request has been satisfied. It then checks to find addi¬ 
tional I/O requests in the chain for this particular device. If there 
is another request pending, it is moved to the queue pointer for the 
device and a skip return is taken from DEQ. If there is no further 
request for this device, then a short return is taken from DEQ indicat¬ 
ing that all I/O operations on that device have been satisfied. 

3.3.1 LINCtape Handler 

We now turn our attention to the I/O handlers for specific devices, 
beginning with IOLTP, the LINCtape I/O routine. IOLTP is called by 
READR or WRITR whenever a request is in the unit class 20 , indicating 
that the request is for LINCtape. IOLTP calls ENQ, and if this is the 
first operation for LINCtape, a LINC instruction (6141) is moved to 
location LTLINC. The reason for this is explained in section 
3.3.5, with the interrupt scan chain. The subroutine SET RW is 
called to set the Read/Write bit in the user's parameter list according 
to the status of RWSW, the Read/Write switch set by the Read/Write 
routine at the time of the call. Then if no other operation is in progress, 
the LINCtape subroutine LTPDO is called to start the requested operation. 

When the operation has been started, the LINCtape I/O handler returns 
to the caller via routine MSXKP which restores the Monitor stack and 
takes a skip return at the site of the call. When the LINCtape pro¬ 
cessor causes an interrupt, control transfers to LTPINT (in LINCmode) 
which contains the code to handle LINCtape interrupts. At this time 
the LINCtape queue pointer LTPQP is tested to determine whether this 
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interrupt indicates completion of the last transfer necessary to satisfy 
this request. If the transfer is complete then the subroutine DEQ is 
called to determine whether there are more requests on the list. If 
the transfer is not complete then LTPDO is called again to perform the 
next transfer. If DEQ indicates that there are no more requests pend¬ 
ing for LINCtape, then routine LTICLR removes the LINCtape interrupt 
handler from the scan chain by storing a jump instruction at location 
LTLINC. It ftien clears the extended operations buffer to prevent multiple 
interrupts from LINCtape and returns through INTEX to the operating 
program at the point of the interrupt. 

I 

3.3.2 Teletype Handler 

The Teletype I/O routine, IOTTY, is actually in two sections, one for 
input requests and one for output requests. Output requests are handled 
at TTOQ which calls the ENQ routine in a manner analogous to the way 
it was called by the LINCtape I/O handler, setting up the queue pointer 
for Teletype output, TTOQP. If there are no requests pending on the 
Teletype output queue pointer, the subroutine TTOPUT is called to print 
the first character from the buffer on the teleprinter. TTOPUT gets 
the character from the buffer, adjusts the pointer address, and calls 
subroutine TTECHO so that the output of the character is handled exactly 
as though it were the echo of an input character. Then, when an interrupt 
occurs from the teleprinter, the subroutine TTOINT (invoked by the inter¬ 
rupt scan chain) calls the echo routine to output the next character 
from the buffer. When the buffer has been exhausted TTOCLR stores a -1 
in 1TOFLG, indicating that no printing is currently active, clears 
the teleprinter flag with the instruction TCF and returns to the interrupt 
scan chain. 

Subroutine TTECHO stores the character currently in the AC and checks to 
see whether the echo buffer is full. If it is, the character is ignored. 
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If the echo buffer is not full, the output flag TTOFLG is checked to deter¬ 
mine whether the teleprinter is currently active. If not, the character 
is output. If it is, then this character is stored in the echo queue at 
TTEBSF. The pointers to the echo buffer are then adjusted and the sub¬ 
routine TTECHO returns. 


Teletype input requests are handled by the subroutine TTIQ which sets 
up the input queue pointer TTIQP by calling the subroutine ENQ. Teletype 
input interrupts are handled by the subroutine TTINT which gets the 
character, forces the parity bit to 1 and stores the character at 
TTICHR. Subroutine INTPSH is then called to push the interrupt status 
onto the interrupt stack so that interrupts can be turned on during 
processing of the Teletype interrupt. If the character is control (in 
the range 200 - 231 ), the user's control character handler (if any) is 
called. The character is compared to a list of characters in the 
special character table to determine whether it is one of those which 
requires special handling by the input routine. If it is not, the 
character is simply stored in the buffer and a control returns via INTPOP 
and then back through the interrupt scan chain. If the character is 
a special character (one of the following list): 


377 

212 or 215 
233, 375, 376 
203 


RUBOUT 

LINE FEED or CARRIAGE RETURN 

ALTMODE 

CONTROL C 


one of the appropriate routines is invoked to handle that particular 
character. TTRUB, the routine which handles rubout, checks first to 
see whether input is active. If there is none active, control re¬ 
turns without echoing. If input is active and there are characters 
in. the buffer, the last character in the buffer is cleared and a 
backslash is echoed on the console Teletype. If the character is 212 
or 215 (line feed or carriage return), the routine TTCRLF verifies 
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input activity, echoes carriage return/line feed, and stores the input 
characters in the user's buffer. The input request is considered 
satisfied and the DEQ is called to find the next request pending on the 
list. If the character is any of the three altmodes and input is 
active, dollar sign is echoed on the console Teletype and processing 
is the same as for carriage return or line feed. If the character is 
control C, the routine TTCTLC echoes an up-arrow and a C on the console 
Teletype, turns interrupts on, waits for the echo count to reach zero, and 
returns through EXIT. This subroutine does an I/O PRESET to clear all 
pending interrupts, and loads the job control processor from the system 
device. 

3.3.3 Display Handler 

The display I/O routine IODISP does not use subroutines ENQ or DEQ since 
it is not possible for a display request to be queued. In particular, 
display requests are satisfied immediately upon receipt of the request. 
Subroutine IODISP decodes the unit words in the user's parameter list. 

If bit 11 of that word is zero^then the request is display ASCII characters; 
if 1, the request is to display DIAL characters. Characters are obtained 
from the buffer, used to index the list of grids starting at location 3 
in segment 1, and DSC instructions are used to display the appropriate 
grids. The characters in text format 43, 45 and 47 are considered to 
be special characters. 43 represents the new line character; 45 is the 
line feed without carriage return; and 47 is the tab, which takes the 
next character in the buffer to the next multiple of eight characters 
across the display screen. 


3.3.4 Disk Handlers 

Location IODISK is the start of the disk handlers. If RFJ38 and RK8 
disks are both to be used with the system,then the routine IODISK first 
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determines which type of disk is required for this particular request 
(indicates by bit 9 of the unit word). If bit 9 is set, the request is 
for RF08, otherwise it is for RK8. The RK8 routine enables its disk inter¬ 
rupt handler DSKINT by calling SETINT just as though it were a user program 
It then sets the read/write bit in the unit word of the user's parameter 
list and calls the subroutine DSKDO to start the I/O operation. DSKDO 
sets up the RK8 control registers and reads up to one full track of data 
from the disk. When the interupt from the disk occurs / subroutine DSKINT 
is called by the interrupt scan chain to process the interrupt. It deter¬ 
mines whether this interrupt represents completion of the current request, 
whether the operation was completed without error and whether more opera¬ 
tions are to be performed for subsequently queued requests. If an opera¬ 
tion is to be performed, in each case the subroutine DSKDO is invoked to 
perform it. DEQ is called to get the next operation from the list when 
all operations have been performed, clear status is issued to clear the 
disk, and then the IOT in the interrupt scan chain is replaced with a 
NOP instruction and control returns to the interrupt scan chain. The 
RF08 routine is performed in a precisely analogous fashion for requests 
on RF08 disks. 


3.3.5 Interrupt Status Storage 

The interrupt time facilities for the Monitor are entered at location 
PINT or LINT depending on the mode of the machine at the time the 
interrupt occurred. Each of these routines saves the current AC and TINK 
registers along with an indication of the status of the machine, that is^ 
whether it was in PDP-8 or LINCmode at the time of the interrupt. Then 
it saves the interrupted fields in location ISVFLD and enters INTSCN to 
begin searching for the source of the interrupt. INTSCN is a string of 
instruction^, which at initialization time are JMPs and NOPs. Each NOP 
may be replaced by the subroutine ISETR with a VOT instruction which will 
cause a skip to a CIFCDF and a JMS indirect to the user's interrupt handler. 
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At the end of this chain are special interrupt handlers for the teleprint¬ 
er, the keyboard, and LINCtape, which are special routines as far as the 
Monitor is concerned. The LINCtape routine must be handled in a particular 
way because the test has to be performed in LINCmode rather than in PDP-8 
mode. To do this the instruction at LTLINC may be either an indirect JMP 
to return to INTEX, the interrupt exit routine, or may be a LINC instruc¬ 
tion (6141). When tape operations are in progress, if this is a LINC 
instruction, control flows in to a "skip on tape not done" (STD I) 
instruction, which, if tape is done, permits a JMP to LTPINT, the LINCtape 
interrupt handler to take place. Otherwise, control flows into a PDP 
instruction then jump indirect to INTEX. At INTEX, the interrupt exit 
routine, the fields as saved at ISVFLD are restored through LDF and LIF 

or CIF instructions to return the fields to their status at the time of 

the interrupt. Then the AC and the LINC are restored; and the machine 
state, either PDP mode or LINC mode, is restored; and control returns, 
after turning interrupts on, to the program at its point of interruption. 

Two more routines must be examined at this point, IPUSHR and IPOPR, 
the two routines which push and pop the interrupt status on the interrupt 

stack. These two routines simply interrogate the values of the saved 

AC, the saved LINK and MODE, and the return address words and push them 
according to the values of Auto-index register 16, then at pop time, 
pop them off the list. 

3.4 Bootstrap Routine 

The initial loading bootstrap routine is assembled at location 6000 in 
the Monitor. This routine is the first block loaded when the Monitor is 
initially loaded from tape or disk. If the load is from disk, this block 
may be loaded at or below location 4001 and all addresses are one high¬ 
er than the assembled address because of the fact that the word count 
and current address used to load the system from disk are actually in- 
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correct. (I/O PRESET clears the word count and current address registers 
in the disk control. Word 0 of block 0, therefore, is loaded into loca¬ 
tion 1, etc.) If the loading program is loaded from disk, the entry point 
is that assembled at location 6000, but the load routine calls subroutine 
IMOVE to move the entire load routine to location 6000. Otherwise, tape 
and disk load are identical following location INFOR, which collects 
information from the index which was also loaded at startup time. Then 
the Monitor is read in using special subroutines which are contained in 
the loader program. Upon completion of this operation, page 37 is 
cleared to prevent files from being saved improperly, and the loading 
program jumps to location EXIT which causes further processing just as 
though a normal program has completed operation. 

3.5 Implementing Additional Devices 

Using a listing of the Monitor, examine the coding of one of the 
present device routines. If the device uses data break for trans¬ 
fers, look particularly at the disk routines. If transfers take 
place through the AC, the TTY routines will be more useful. 

3.5.1 Accessing the Device 

If the device is in one of the system-defined classes, turn on the 
conditional assembly control for that class, to allow the READ and 
WRITE routines to access the device routine. If there are other 
devices in the same class, add code at the device routine to decode 
the low-order bits of the unit code for appropriate handling of the 
various devices in the class. 

The device routine (assuming the device generates interrupts) must 
have two sections: one to queue the request and start it, if there 
are no other requests on the queue; the other to handle the inter- 
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rupts, continue the operation if incomplete, retry errors if approp¬ 
riate, and dequeue completed requests. 


3.5.2 Queueing 

Queueing is performed by the NQUEUE routine,which sets the data 
field to the user's calling field, turns interrupts off, and 
chains the current request to the other requests on this device 
the parameter list for this request is copied into the queue pointer 
for this device, and the second return from NQUEUE is taken. 

This queue pointer for any device contains information about the 
current operation taking place on a device. The first word is 
zero if the device is idle. If the device is busy, the first word con¬ 
tains a CDF instruction for the field containing the parameter list for 
the current operation, and the second word contains the address within 
the field of that parameter list. The next two words specify the 
field and address of the buffer for this operation. The next word 
is the two's complement of the length specified in the caller's 
parameter list, and the final word is the starting block of the 
operation, if tape or disk. Non-block oriented device routines 
should ignore this last word. 

3.5.3 Dequeueing 

Dequeueing I/O requests is performed by the routine DQUEUE, which 
clears the busy bit in the user's parameter list, clears the chain 
pointer in his list, and copies the parameter list into the queue 
pointer for the device. If there is no pending I/O request for 
the device, the alternate return from DQUEUE is taken, so that the 
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device routine can clear the device flags and enter the idle state, 
rather than attempting to start a new operation. 

WARNING: Dequeueing must not be performed until an operation is 

fully complete, i.e., the device routine must not dequeue at the 
time it starts the last phase (last block or last character) of a 
transfer, but wait until the "done" flag comes up at the device 
before dequeueing. 

3.5.4 Interrupts 

If a device routine services a low-priority device, or takes a 
significant amount of time to service it, the routine should 
make use of the INTPSH and INTPOP facilities to allow rapid service 
of high-priority interrupts. If this is done, remember that the 
device flag for the device being serviced must be cleared before 
turning interrupts on, and that DQUEUE must be called with inter¬ 
rupts off. 

New device routines should use the SETINT facility to set up the 
call to their interrupt handlers. When the device is idle, the 
interrupt handler may disable itself by storing a NOP (. 1000 ) at 
its return address minus 4. (The disk routines use this tech¬ 
nique to allow the flag-test slot to be available for other 
SETINTs during the time the device is idle.) 
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4.0 MONITOR CORE MAP 


FIELD 0: 


FIELD 1 


0-1 

2-7 

10-15 

16-17 

20-37 

40-43 

44-137 

140-177 

200-377 

400-577 

600-777 

1100-1177 

1200-1377 

1400-1577 

1600-1777 

2000-2200 

2201-2377 

2400-2577 

3000-7600 


8-MODE INTERRUPT 

MONITOR TEMPORARIES 

USER AUTO-INDEX REGISTERS 

MONITOR AUTO-INDEX 

MONITOR CALL ADDRESSES 

LINC-MODE INTERRUPT 

USER PAGE 0 

MONITOR PAGE 0 

INTERRUPT PROCESSING 

INTERRUPT SCAN CHAIN 
AND VARIOUS TABLES 

ISETR, UTILITY ROUTINES 

READR, WRITR, ENQ, DEQ 

LINCTAPE ROUTINE 

TTY OUTPUT, ECHO 

TTY INPUT 

DISPLAY CHAR TABLE 

CHAR DISPLAY ROUTINE 

DISK I/O ROUTINE 

USER PROGRAM AREA 


7600-7777 JCL/USER COMMUNICATION 


0-7777 USER PROGRAM AREA 
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5.0 FLOW CHARTS 

5.1 Initial Program Load 

Tape: LSW=700 

RSW=0 
LINC mode 
I/O PRESET 
DO 

START 20 


Disk: 20 = 6733 

21 = 5021 
PDP-8 mode 
I/O PRESET 
START 20 
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5.2 Interrupt Processing 


PDP-8 MODE LINC MODE 


PINT LINT 
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5.3 SETINT 
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5.4 General I/O Requests 
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General Form of All Device Handlers 




DEVDO 


DQUEUE 









s~~ 



» 

b. 

*20 



00 01 

/ 

LOP SYSTEM 

RESIDENT MONI TOR 

0002 

/ 



4)2 Mi 

/COPYRIGHT 1971; DIGITAL EQUIPMENT CORP, 

0034 

/ 

MAYNARD, MASS, 01754 

00 05 

/ 



0006 

/ 

VERSION l: 

FEBRUARY 23, 1971 

00 0 7 

/ 

JUD 

LEONARD 

0010 

/ 



00 11 


PMODE 


0010 


SAVSYM 2 

/SAVE SYMBOL TABLE FOR JCL 

0010 

/ 



0014 

/ 

JOB CONTROL 

MODULE JLNN MUST BE 

0015 

/ 

RE ASSEMBLED 

WHEN MONITOR IS MODIFIED 

0016 

/ 



0017 

IN TM AX = 

10 

/MAXIMUM NUMBER OF INTERRUPT 

0020 



/handlers enabled 

00 21 



/MUST NOT EXCEED 2 6 

0022 

INTSTK= 

4 

/MAXIMUM INTRPT PUSHDOWN DEPTH 

00 26 

/ 



0024 

MONSTK= 

4 

/MAX DEPTH OF MONITOR STACK 

0025 

/ 



0026 

/ 

ADJUSTMENT 

OF THE ABOVE VARIABLES MAY CAUSE 

0027 

/ 

AN INCREASE 

IN THE SIZE OF THE MONITOR, 

0030 

/ 

EXAMINE THE 

CODING FOLLOWING 

00 31 

/ 

INTSCN TO DETERMINE OPTIMUM VALUES, 

0032 

/ 



0033 

/ 

THE FOLLOWING VARIABLES ARE INTENDED FOR 

0034 

/ 

CONDITIONAL 

ASSEMBLY CONTROL OF DEVICE 

00 35 

/ 

ROUTINES. 1 

MANY OF THE ASSOCIATED ROUTINES 

00 36 

/ 

DO NOT EXIST, OR ARE NOT DEBUGGED, 

0037 

/ 

THEREFORE USE GREAT CAUTION IN CHANGING 

00 40 

/ 

THESE VARIABLES, 

00 41 

/ 



0042 

/ 



00 43 

RK 08 = 

1 

/NUMBER OF RK8 DISK DRIVES 

0044 

R F08 = 

0 

/NUMBER OF RS08 DISK PLATTERS 

00 45 

PC 12 = 

0 

/I FOR PAPER TAPE 

00 46 

IP 08 = 

0 

/I FOR LP08 PRINTER 

00 47 

CR 12 = 

0 

/I FOR CARD SUPPORT 

00 50 

TC58 = 

0 

/i for mag tape support 

00 51 

MS COEV = 

PC12 ILP08: CR12 5TC58 

0052 

KP12 = 

0 

/I FOR POWER FAIL SUPPORT 

00 53 

01SPLY= 

1 

/I FOR CHAR DISPLAY ROUTINES 

0054 

GRIDS= 

0 

/I FOR 4*6 ASCII DISPLAY GRIDS 

0055 

/ 



00 56 

TT BLEN = 

4 

/TTY ECHO BUFFER LENGTH 

0057 



/MUST BE POWER OF TWO 

00 60 

/ 



00 61 

01 AL = 

0 

/I FOR OIAL-MS TESTING 

0062 

/ 


/VIA AOD BINARY 

00 63 

CREF = 

14 

/LISTAPE UNIT IF NOT EERO 

0064 

/ 



0065 

/ 



006o 


EJECT 




00 6 7 



/ 



00 70 




ASMI Ft 

DIAL 

0071 




FIELD 

1 /PUT I PL BEFORE MONITOR 

00 n 



/ 


IN BINARY FILE 

0Z 70 




»0 


00 74 



/ 



0076 



/ 



00 76 



/ 

PDP-8 MODE INTERRUPT 

0077 



/ 



0100 

00 00 

00 00 


0 


0101 

00 01 

5544 


JMP I 

P8INT /GO TO INTERRUPT HANDLER 

01 02 



/ 



0100 



/ 

NON=INTERRUPT TEMPORARIES 

0104 



/ 



0106 

0002 

0000 

TMP1 , 

0 


01 06 

00 03 

00 00 

TMP2 , 

0 


0107 

0004 

0000 

TMP3, 

0 


0110 

00 05 

00 00 

TMP4 , 

0 


0111 

000 6 

0000 

TMP5, 

0 


0112 

00 07 

00 00 

TMP6 , 

0 


0110 



/ 



0114 



/ 

AUTO-INDEX REGISTERS 10-15 

0115 



/ 

RESERVEL 

I FOR USER PROGRAMS 

0116 



/ 



0117 




*16 


0120 

0016 

04 67 

IS TP , 

IS TACK 

/START OF INTERRUPT PUSH-DOWN LIST 

0121 

0017 

0510 

MS TP , 

MSTACK 

/START OF MONITOR CALL PUSH-DOWN L 

0122 



/ 



0120 



/ 



0124 



/ 

MONITOR 

call addresses 

0125 



/ 



0126 



/ 



0127 

00 20 

0600 

SETINT, 

ISETR 

/SETUP INTERRUPT HANDLER 

0100 

00 21 

10 00 

READ , 

READR 

/READ ROUTINE 

0131 

0022 

1003 

WRITE, 

WRI TR 

/WRITE ROUTINE 

0132 

0023 

07 15 

WAIT , 

WAITR 

/SINGLE WAIT 

0133 

0024 

0031 

MWAIT, 

MHALT 

/MULTIPLE WAIT 

0134 

0025 

13 35 

EXIT, 

JC BOOT 

/RETURN TO JOB CONTROL 

0135 

0026 

0033 

ABORT, 

MNOP 

/OE-QUEUE I/O 

0136 

00 27 

02 12 

IN TP SH , 

IP US HR 

/PUSH INTERRUPT ONTO STACK 

0137 

0030 

0236 

INTPOP, 

IPOPR 

/POP SAME 

0140 



/ 



0141 

0031 

0000 

mhalt, 

0 

/UNIMPLEMENTEO CALLS 

0142 

0032 

5552 


JMP I 

merror 

0143 

0033 

00 00 

MNOP , 

0 

/NOP CALLS 

0144 

0034 

4547 


JMS I 

MENTER 

014 5 

0035 

5550 


JMP I 

MXSKP 

0146 



/ 



0147 



/ 

HELPFUL 

VALUES 

0150 



/ 



0151 

0036 

0002 


02 

/CURRENT VERSION 

0162 

00 37 

26 00 


ME NO *1 

/FIRST USER LOC 

0153 



/ 



0154 



/ 

LINC-MODE INTERRUPT 

0155 



/ 



0156 




LMOOE 


0157 




*4 0 


01 60 

00 40 

00 00 


0 


0161 

0241 

0500 


103 


0' 

0042 

6002 


LI OF 

/PREVENT LTIPLE INTERRUP 

0 

00 43 

o3 66 


JMP 

LINT /HANDLE ERRUPT 

0164 



/ 



r i . w 




i- i r r t 




J 



/ 



' / 

kJi o7 



/ 

LOCATIONS 44 THRU 137 AVAILABLE 

01 70 



/ 

TO USER 

PROGRAMS 

0171 



/ 




01 72 




LMOOE 



01 73 




*1 40 



0174 

0140 

0000 


0 



01 75 

0141 

00 00 


HLT 


/TRAP OR 6141 

0176 

0142 

0002 


POP 



01 77 




PM 00 E 



0200 

0143 

4425 


JMS I 

EXIT 

/ERR RTRN TO JCL 

02 01 



/ 




0202 



/ 

LOCATIONS 144 THRU 177 AVAILABLE TO MONITOR ONLY 

0233 



/ 




0204 

0144 

0 360 

paiNT, 

PINT 


/8-MOOE INTERRUPT HANDLER 

0205 

0145 

10 30 

NQUEUE . 

ENQ 


/QUEUE UPDATE ROUTINE 

0236 

0146 

1103 

OQUEUE . 

DEQ 


/DOWN DATE 

0207 

01 47 

0725 

MENTER . 

MNTR 


/GENERAL ENTRY FOR MONITOR CALLS 

0210 

0150 

0751 

MXSKP, 

MX! 


/EXIT WITH SKIP 

0211 

0151 

0746 

SETUDF , 

MU DF 


/CDF TO USER 

0212 

0152 

0677 

ME RK OR , 

merk 


/MONITOR ERROR 

0213 



/ 




0214 

0153 

00 70 

P70, 

70 



0215 

01 54 

0077 

P77, 

77 



0216 

0155 

0005 

P5, 

5 



0217 

0156 

7774 

M4 , 

-4 



02 20 

0157 

6201 

KCDF, 

CDF 



0221 

0160 

70 00 

KNOP , 

NOP 



0222 

0161 

0260 

CZERO. 

26 0 



02 23 



/ 




02 24 



RWSW = 

TMP6 


/0 IF READ, -1 IF WRITE 

0225 



/ 




0226 



/ 

TEMPORARIES FOR 

USE BY INTERRUPT-TIME ROUTINES 

02 27 



/ 

MUST BE 

USED ONLY WITH INTERRUPTS OFF 

02 30 



/ 




02 31 

0162 

00 00 

QT1, 

0 



0232 

0163 

00 00 

QT2, 

0 



02 33 

0164 

0000 

QT 3, 

0 



0234 

0165 

0000 

OT 4, 

0 



02 33 



/ 




02 36 




ASMIFN 

KP 12 


02 37 



PWRUPP , 

PWRUP 


/POWER RESTORED 

0240 



/ 




02 41 




*177 



0242 

0177 

1637 

TTPCTl. 

TT INRM-1 


/DEFAULT CNTRL CHAR HANDLER 

02 43 



/ 




02 44 



L 1 OF = 

10 F 



024 5 



L I ON = 

ION 



0246 



LR 18 = 

R18 



02 47 



/ 




0250 



0NE = 

CLA I AC 



02 51 



TWO 3 

CL A CLL 

IA C RAL 


0252 



THR£E= 

CLA STL 

IA C RAL 


0253 



FOUR = 

CLA CLL 

IA C RTL 


02 54 



SI X = 

CLA STL 

IAC RTL 


0255 



MONE = 

CLA CMA 



02 5 6 



M T W0 = 

CLA CLL 

CM A RAL 


0257 



MT HR EE = 

CLA CLL 

CM A RTL 


02 60 



/ 




32 ol 




F in- t 





02 62 
0266 
0264 
0265 
0266 
026 7 
0270 
0271 
02 72 
0270 
02 74 
0276 
02 76 
02 7 7 
0330 
0031 
03 02 
0303 
0334 
0305 
03 06 
0307 
03 10 
0311 
0312 
0013 
0314 
0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
03 26 
0327 
03 30 
0331 
03 32 
0330 
0304 
0335 
03 36 


/ 

/ 

PAGE 1 


/ 

/ INTERRUPT SERVICE ROUTINES 

/ 


0200 

00 00 

NTRi 

0 




0201 

0153 


AND 


P7 0 


02 02 

11 57 


TAD 


KCDF 


0200 

7001 


I AC 



/MAKE CIF 

02 04 

02 31 


DC A 


XITIF 


0205 

6214 


RDF 




0206 

1157 


TAD 


KCDF 


02 0 7 

32 30 


DC A 


XITDF 


0210 

6201 


CDF 


0 


0211 

5 600 

/ 

JMP 

I 

NTR 




/ 

/ 

PUSH 

I NT 

ERRUPT 

STATUS 

0212 

00 00 

t 

IP US HR , 

0 



/INTERRUPT PUSH 

0210 

4200 


JMS 


NTR 


0214 

1016 


TAD 


IS TP 

/CHECK FOR TOO 

0215 

1265 


TAD 


ISTLIM 

/MANY PUSHES 

0216 

77 00 


SMA 

CL A 



0217 

5234 


JMP 


IPERR1 

/OOPS 

0220 

13 33 


TAD 


ISVAC 

/SAVED AC 

0221 

0416 


DC A 

I 

I STP 


0222 

1345 


TAD 


ISVLNK 

/LINK AND MODE 

0223 

3416 


DC A 

I 

I STP 


0224 

1040 


TAD 


40 

/RETURN ADDR 

0225 

3416 


DC A 

I 

I STP 


0226 

1346 


TAD 


ISVFID 

/FIELDS 

0227 

3416 

/ 

OCA 

I 

I STP 


02 30 

62 01 

/ 

XI TOF, 

CDF 




02 31 

62 02 

XI T I F» 

CIF 




0232 

5612 

/ 

JMP 

I 

IPUSHR 

/R ET UR N 

0233 

7201 

IPERR2 , 

ONE 




0234 

7001 

IPERR1, 

IAC 




0205 

5552 


JMP 

I 

MERROR 



/ 

EJECT 


a 



a 


0340 


03 41 


0342 


0343 

0236 

0344 

02 37 

03 45 

02 40 

0346 

0241 

0347 

0242 

0350 

0243 

0351 

0244 

0352 

0245 

0333 

0246 

0354 

0247 

03 55 

0250 

0356 

0251 

0357 

02 = 2 

0360 

0253 

0361 

0254 

3362 

0255 

03 63 

0256 

0364 

0257 

03 65 

02 60 

0366 

0261 

03 o7 

02 62 

0370 

0263 

03 71 

0264 

03 72 


0373 

0265 

0374 

0266 

03 75 


0376 



/ 

/ 

/ 

/ 

2)000 1P0PR, 
4200 
1156 
1016 
J016 
1016 
1266 
7710 
6233 
1416 
3333 
1416 

3345 
1416 
3340 
1416 

3346 
1156 
1016 
3016 
1236 
3212 
5230 

/ 

7271 ISTLIM, 
7311 MISTAK, 
/ 


POP interrupt status 


0 


JMS 


NTR 



TAD 


M4 



TAO 


ISTP 



OCA 


IS TP 



TAO 


ISTP 

/CHECK FOR 

TOO 

TAO 


MISTAK 

/MANY POPS 


SPA 

CLA 




JMP 


IPERR2 

/OOPS 


TAD 

I 

ISTP 



OCA 


IS VAC 

/POP SAVED 

AC 

TAO 

I 

ISTP 



OCA 


ISVLNK 

/LINK 


TAD 

I 

ISTP 



DC A 


40 

/RETURN ADOR 

TAO 

I 

ISTP 



OCA 


ISVFLD 

/FIELDS 


TAO 


M4 



TAO 


ISTP 



OCA 


ISTP 



TAD 


IP OP R 



OCA 


IPUSHR 



JMP 


XI TOE 




-ISTACK-INTST4 

-ISTACK 


EJECT 



05 7 7 



/ 





0400 



/ 

GENERAL 

INTERRUPT EXIT 

0401 



/ 





04 00 

02 67 

7200 

INTEX, 

CLA 




0403 

0270 

1546 


TAD 


isvfld 

/GET INTERRUPTED FIELDS 

04 04 

02 71 

03 4 7 


AND 


P3 7 

/DATA SEGMENT IN 7-11 

0405 

0272 

1551 


TAD 


KLDF 

/MAKE LDF INST 

04 0(3 

02 73 

5317 


DC A 


DFLNK+ 1 

/FOR LATER EXECUTION 

040/ 

0274 

7507 


FOUR 




04 10 

0275 

0545 


AND 


ISVLNK 

/MODE IS BIT 9 

0411 

0276 

7640 


S6A CLA 


/SKIP IF LINC MODE 

0412 

0277 

5310 


JM P 


PDPI F 

/ELSE 8-MODE 

0415 



/ 





0414 



/ 

BUILD 

LIF INSTRUCTION FOR LINC MODE RETURN 

0415 



/ 





04 16 

03 00 

15 46 


TAD 


IS VF LO 

/F IELDS 

0417 

0501 

7012 


RTR 




04 20 

0302 

/0 12 


RTR 




0421 

0305 

7010 


RAR 



/5-BIT IF TO 7-11 

0422 

03 04 

0347 


AND 


P3 7 

/INST SEG ONLY 

04 23 

03 05 

1550 


TAD 


KL IF 

/BUILD LIF INST 

0424 

03 06 

5534 


DC A 


LX IF 

/LINC EXIT INSTRUCTION FIELD 

0425 

0307 

5316 


JMP 


dflnk 

/GO SET LINK AND DATA FIELD 

04 26 



/ 





0427 



/ 

BUILD 

CIF INSTRUCTION FOR POP MODE RETURN 

0450 



/ 





04 31 

0510 

15 46 

PDPIF# 

TAD 


isvfld 

/GET SAVED FIELDS 

04 52 

0311 

7 012 


RTR 




0433 

0512 

7012 


RTR 



/HIGH ORDER IF TO BITS 6-8 

04 54 

0313 

0153 


AND 


P7 0 

/DROP OTHERS 

0435 

0514 

1552 


TAD 


KCIF 

/BUILD CIF INST 

04 36 

0315 

53 41 


DC A 


PX IF 

/PDP EXIT INST FIELD 

0437 



/ 





0440 



/ 

RESTORE 

DATA FIELD AND LINK 

0441 



/ 





04 42 

0516 

6141 

DFLNKi 

LINC 



/DO THE LDF 

0443 

0317 

0000 


0 



/LDF GOES HERE 

04 44 

03 20 

00 02 


00 02 



/RETURN TO PMODE 

0445 

0321 

1345 


TAD 


ISVLNK 

/GET L INK AND MODE 

0446 

03 22 

/012 


RTR 



/SET LINK 

0447 

0323 

7640 


S/S A CLA 


/LINC MODE? 

04 50 

0324 

53 41 


JM P 


PX IF 

/NO-EXIT IN PDP 

0451 



/ 





0452 




EJECT 






h ■ 

1>5 

0456 

0325 

1040 

04 57 

0326 

6141 

04 60 
0461 

0327 

16 20 

0462 

0330 

60 00 

04 63 

03 31 

43 40 

0464 

03 32 

1020 

04 65 

0333 

0000 

0466 

0334 

0600 

0467 

0335 

0006 

0470 

0336 

0500 

04 71 

03 37 

60 01 

0472 

0340 

6000 

0473 

04 74 

04 75 



0476 

0477 

05 00 

03 41 

62 02 

0501 

0342 

1333 

0502 

0343 

6001 

05 03 

03 44 

54 40 

0504 

05 05 
0506 

0345 

0000 

0507 

0346 

00 00 

0510 

0511 

03 47 

0037 

0512 

03 50 

06 00 

0513 

03 51 

06 40 

0514 

03 52 

62 02 

0515 

0516 




/ 


/ 

EXIT FROM LINC 

/ 

IS VAC* 

TAD 40 

LINC 

LMOOE 

3SE I 

JMP 

STC LXJMP 

LDA I 

0 

LXIF, 

LIF 

LXJMP, 

DJR 

IOB 

LION 

JMP 

/ 

/ 

EXIT FROM PM ODE 

/ 

/ 

PX IF * 

PMODE 

CIF 

/ 

/ 

ISVLNK. 

TAD ISVAC 

ION 

JMP I 40 

0 

ISVFID , 

0 

/ 

P3 7, 

37 

KLIF, 

60 0 

KLDF , 

64 0 

KCIF, 

CIF 

/ 

EJECT 


MODE INTERRUPT 
/RETURN ADDR 

/FORCE JMP INST 

/FOR RETURN 
/RESTORE AC 

/RESTORE INST SEG 

/RESTORE INTERRUPTS 

/RESUME EXECUTION 

INTERRUPT 

/RESTORE INST FID 
/RESTORE AC 

/RESUME USER PGM 



V J i / 



/ 



05 20 




*3 60 

/FOLLOWING CODE AT EXACT END OF PAGE 

05 21 



/ 



05 22 



/ 

enter 

HERE ON PD P-8 MODE INTERRUPT 

0523 



/ 



05 24 



/ 



05 25 

0360 

3333 

PINT , 

DC A 

IS VAC /SAVE AC 

05 26 

0361 

7007 


IA C RTL /SET MODE, SAVE LINK 

0527 

0362 

3345 


DC A 

ISVLNK 

05 30 

03 63 

1000 


TAD 

0 /RETURN ADDRESS 

0531 

0364 

3040 


DC A 

40 

05 32 

0365 

5372 


JMP 

ALLINT /GO TO COMMON HANDLER 

05 33 



7 



05 34 



/ 



0535 



/ 

ENTER 

HERE ON LINO MODE INTERRUPT 

0536 



/ 



05 37 




LM ODE 


05 40 



/ 



05 41 

03 66 

43 33 

LINT, 

ST C 

IS VAC /SAVE AC 

05 42 

0367 

0262 


ROL I 

2 /SAVE LI NC 

0543 

0370 

4345 


ST C 

ISVLNK 

05 44 

03 71 

04 56 


SKP 


0545 

03 72 

6141 

ALU NT, 

6141 

/LINC MODE FOR GETTING FIELDS 

0546 

0373 

0500 


10B 


05 47 

03 74 

62 34 


LR IB 

/SAVE FIELDS 

0550 

03 75 

02 42 


ROL 

2 /IF IN 2-6, DF IN 7-11 

0551 

0376 

4346 


STC 

ISVFLD 

05 52 

03 77 

00 02 


POP 


0553 




PMQOE 


0554 



7 



0555 




ASM I FN 

,4177 /CHECK FOR PAGE BOUNDARY 

055 6 



ASSEMBLY 

ERROR 

/ADJUST ORG BEFORE "PINT" 

0557 





/TO PUT THIS AT PAGE BOUNDARY 

0560 



/ 



0561 




EJECT 




T 

/ 



£ 

V J 

/ 

SCAN FLAGS TO FIND SOURCc. OF INTERRUPT 



0564 

/ 




05 65 

/ 

THERE MAY BE A MAXIMUM OF 30 OCTAL ENTRIES IN 



05 66 

/ 

THE SCAN, AND THEY MUST ALL BE IN THE SAME PAGE 



0567 

/ 




0570 

/ 




0571 

I NTS CN = 

1 



0572 

/ 




05 73 

/ 




05 74 


INTMX4=INTMAX+INTMAX*INTMAX+INTMAX 



0575 


ASMSKP 156-INTMX4-INTMAX 



0576 

/ 




0577 


NOP 



0600 


JMP ,*3 



06 01 


Cl F COF 



0602 


JMS I INTADQ-27 



06 03 

/ 




0604 


NOP 



06 05 


JMP , + 3 



0606 


CIF COF 



06 07 


JMS I INTADO-26 



0610 

/ 




0611 


NOP 



0612 


JMP ,*3 



0613 


CJF COF 



0614 


JMS 1 INTAQD-25 



0615 

/ 




0616 


NOP 



0617 


JMP ,♦ 3 



0620 


CIF COF 



0621 


JMS I INTADO-24 



0622 

/ 




06 23 


NOP 



0624 


JMP .+3 



06 25 


CIF CDF 



062t> 


JMS I JNTADO-23 



0627 

/ 




0630 


NOP 



0631 


JMP ,*3 



06 32 


CIF CDF 



06 33 


JMS I INTADD-22 



0634 

/ 




0635 


NOP 



0636 


JM P . ♦ 3 



06 37 


CIF COF 



0643 


JMS I INTADO-21 



06 41 

/ 




0642 


NOP 



06 43 


JMP .+3 



0644 


CIF CDF 



06 45 


JMS I INTADO-20 



0646 

/ 




0647 


NOP 



0650 


JMP ,+3 



06 51 


CIF COF 



0652 


JMS I INTADD-17 



06 53 

/ 




0654 


NOP 



0653 


JMP , + 3 










0661 




NQP 



06 62 




JM P 


, + 0 

06 o3 




CIF 

CDF 


06 64 




JM S 

I 

INTADD-15 

0666 



/ 




06 66 




NOP 



066 7 




JM P 


.♦3 

06 70 




CIF 

CDF 


0671 




JMS 

I 

INTADD-14 

06 72 



/ 




0676 




NQP 



0674 




JM P 


. + 3 

0676 




CIF 

CDF 


06 76 




JMS 

I 

INTAQD-13 

0677 



/ 




07 00 




NOP 



0701 




JMP 


«+3 

07 02 




CIF 

CDF 


0700 




JMS 

I 

I NT ADD-12 

0704 



/ 




0706 

0430 

7000 


NQP 



0706 

0401 

52 04 


JMP 


• * 3 

0707 

04 02 

62 03 


CIF 

CDF 


0710 

04 00 

4656 


JMS 

I 

IN TA DD-11 

0711 



/ 




3712 

04 04 

70 00 


NOP 



0710 

0406 

5210 


JMP 


■ ♦ 3 

0714 

04 06 

62 03 


CIF 

CDF 


0716 

0 40/ 

4657 


JMS 

I 

INTADD-10 

0716 



/ 




071/ 

0410 

7000 


NOP 



07 20 

0411 

5214 


JMP 


.♦3 

0721 

0412 

6203 


CIF 

CDF 


0722 

0410 

4660 


JMS 

I 

INTADD-7 

0720 



/ 




0724 

0414 

7000 


NOP 



0726 

0 416 

5220 


JMP 


. + 3 

07 26 

0416 

62 03 


CIF 

CDF 


0/27 

0417 

4661 


JMS 

I 

INTADD-6 

0700 



/ 




0701 

0420 

7000 


NOP 



0702 

0421 

5224 


JMP 


,♦3 

3730 

0422 

6203 


CIF 

CDF 


0704 

0423 

4662 


JMS 

I 

INTADD-5 

0705 



/ 




07 36 

0424 

7J00 


NOP 



07 0 7 

0425 

5230 


JMP 


• *3 

07 40 

04 26 

62 03 


CIF 

CDF 


3/41 

042/ 

4660 


JMS 

I 

INTAOD-4 

07 42 



/ 




0743 

0400 

70 00 


NOP 



07 44 

04 01 

52 04 


JMP 


• * 3 

07 46 

04 02 

62 00 


CIF 

CDF 


07 46 

0430 

46 64 


JMS 

I 

IN TA DD -3 

0747 



/ 




07 63 

04 34 

73 00 


NOP 



07 61 

0405 

5240 


JM? 


t + 3 

07 62 

04 06 

62 03 


CIF 

CDF 


P’-M 

04 0/ 

4665 

/ 

JMS 

I 

INTADD-2 

k. -3 



/ 

EJECT 




/ 



04 40 

60 41 


TSF 

/PRINTER ALWAYS ENABLED 

07 60 

0441 

5244 


JMP 

,♦3 

07 61 

04 42 

62 03 


cir cof 


0762 

0443 

4666 


JM3 I 

INTADD-1 

0760 



/ 



0764 

0444 

6031 


KSF 

/KBO ALWAYS ACTIVE 

07 65 

0445 

3250 


JMP 

« + 3 

07 66 

■04 46 

62 03 


CIF COF 

0 

07 67 

04 47 

4667 


JMS I 

INTADD 

0770 



/ 



07 71 



/ 

LINC TAPE INTERRUPT TEST MUST BE LAST IN LIST 

0772 



/ 



07 73 

04 50 

5655 

LTLINC. 

JMP I 

LTNONE♦1/LINC INSTR 

0774 




LMOUE 

/WHEN TAPE ACTIVE 

07 75 

04 51 

04 36 


STD I 

/IS TAPE DONE? 

0776 

0452 

7275 


JMP 

LTPINT /YES 

07 77 

04 53 

00 02 


POP 

/NO 

10 00 




PMODE 


1001 

0454 

5655 

LTNQNE . 

JMP I 

,+ l /RESTORE STATUS 

1002 

0455 

0267 


INTEX 

/AND RESUME EXECUT ION 

1003 



/ 



1004 



/ 



10 05 



/ 

AOORESSES OF INTERRUPT HANDLERS 

1006 



/ 



1007 




ASMS KP 

26-1 NT MAX 

1010 




0 


1011 




0 


1012 




0 


1013 




0 


1014 




0 


1015 




0 


1016 




0 


1017 




0 


1020 




0 


1021 




0 


1022 




0 


1023 




0 


1024 




0 


10 25 




0 


1026 

0456 

00 00 


0 


1027 

0457 

0000 


0 


10 30 

0460 

00 00 


0 


1031 

0461 

0000 


0 


1032 

0462 

0000 


0 


1033 

04 63 

0000 


0 


1034 

0464 

0000 


0 


1035 

04 65 

00 00 


0 


10 36 

04 66 

14 37 


TTOINT 

/TTY INTERRUPTS ENABLED FOR ECHO 

10 37 

04 67 

16 16 

INTADD » 

TTUNT 

/KBD INTERRUPTS ALWAYS ENABLED 

10 40 



/ 



1041 




EJECT 




1042 



/ 




10 43 



/ 

PUSHDOWN LISTS 


1044 



/ 




1043 



1STACK= 

,-l 


/INTERRUPT STACK 

1046 




IN T S T 4 = 

INTSTK+ IN 

TSTK+INTSTK+1NTSTK 

1047 




+1 NTST4 

/ALLOW SPACE FOR STACK 

10 50 



/ 




1051 

0510 

7402 

MSTACK , 

HIT 


/MONITOR STACK 

1052 



/ 




1050 




«.+MONSTK+MONSTK 

+MONSTK 

1054 



/ 




1055 



/ 

GENERAL 

PURPOSE 

tables 

1056 



/ 




1057 



/ 

TABLES 

WHICH MAY 

CROSS PAGE 

1060 



/ 

BOUNDARIES ARE H 

ERE 

1061 



/ 




10 62 



/ 

TTY INPUT SPECIAL CHARACTERS 

1063 



/ 




1064 

0525 

7575 

SPCH AR , 

-2 03 


/CONTROL C 

1065 

0526 

1766 


ttctlc 



10 66 

0527 

75 66 


-212 


/LINE FEED 

1067 

0530 

1731 


TTCRLF 



10 70 

0531 

7563 


-215 


/CARRIAGE RETURN 

1071 

0532 

1731 


TTCRLF 



10 72 
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JMP I 

MERROR 


16 62 



/ 




1663 




EJECT 






1665 



/ 




1666 

1155 

0000 

QMOVE, 

0 



1667 

1156 

1156 


TAD 

M4 


1670 

1157 

3164 


DC A 

OT 3 


16/1 

1160 

7346 


MT HR EE 



1670 

1161 

3165 


DC A 

QT4 

/SPECIAL COUNT 

16/3 

1162 

6201 

QMLOOP . 

CDF 


/A DDR NEXT PAR AM 

1674 

1163 

2162 


152 

QT1 


16 75 

1164 

21 63 


IS z 

QT2 


1676 

1165 

1562 


TAD I 

QT1 

/GET A WORD 

16 77 

1166 

6201 


COF 

0 


1700 

116/ 

2165 


IS2 

QT 4 

/IS THIS LENGTH? 

1701 

1170 

7410 


SKP 


/NO 

1702 

1171 

7041 


CIA 


/YES, MAKE NEG 

1703 

1172 

3563 


DC A I 

GIT 2 


17 04 

1173 

2164 


IS2 

QT3 


17 05 

1174 

53 62 


JMP 

QMLOOP 


1706 

1707 

1175 

5755 

/ 

JMP I 

QMOVE 


1710 



/ 




1711 

1176 

07 47 

PMUDF1, 

MUQF+1 


/ADDR OF USER CDF 

1712 

17 13 



/ 

EJECT 





1714 



/ 




171b 




PAGE 



1716 



/ 




1717 



/ 

LINC TAPE I/O 

routine 

1720 



/ 




1721 



/ 

MUST BE 

IN SEGMENT 0 

1722 



/ 




1720 

1200 

4545 

I OLTP. 

JMS I 

NQUEUE 


17 24 

1201 

12 14 


LTPQP 



172b 

1202 

5212 


JMP 

LTQEO 

/OTHERS IN Q 

1726 



/ 




1727 



/ 

START TH 

IS OPERATION 

1730 



/ 




1731 

1203 

1204 


TAD 

,♦1 

/GET LINC INST 

17 32 

12 04 

61 41 


LI NC 



1733 




LMODE 



17 34 

12 05 

4450 


ST C 

LTLINC 

/ENABLE SCANNER 

1735 

1206 

0002 


PDP 



1736 




PM ODE 



173/ 

1207 

42 22 


JMS 

SETRW 

/SET READ/WRITE 

1740 

1210 

4233 


JMS 

ltpdo 

/START THE OP 

1741 

1211 

5550 


JMP I 

MXSKP 

/RETURN 

1742 



/ 




1743 

1212 

42 22 

LTQED, 

JMS 

SETRW 

/SET READ/WRITE 

17 44 

1213 

55 30 


JMP I 

MXSKP 

/RETURN 

1745 



/ 




1746 



/ 




1747 

1214 

0000 

ltpqp, 

0 


/CDF TO CURRENT LIST 

17b0 

1215 

0000 


0 


/LIST AD DR 

1751 

1216 

0000 


0 


/BUFFER CDF 

1752 

1217 

00 00 


0 


/BUFFER AD DR 

1753 

1220 

00 00 


0 


/remaining count 

1754 

12 21 

00 00 


0 


/CURRENT BLOCK 

17 55 



/ 




17 56 



/ 

SET THE 

READ/W 

RITE BIT (BIT 1 OF UNI 

1757 



/ 

IN THIS 

PARAMETER LIST 

1760 



/ 




1761 

1222 

0000 

SETRW, 

0 



1762 

12 23 

1406 


TAD I • 

TMP5 

/GET UNIT 

1763 

1224 

7106 


CLL RTL 



17 64 

1225 

7120 


STL 


/LINK = 1 FOR WRITE 

1765 

1226 

2007 


IS2 

RWSW 

/SKIP IF WRITE 

1766 

1227 

7100 


CLL 


/CLEAR LINK FOR READ 

1767 

1230 

7012 


RTR 


/RESTORE UNIT 

1770 






/READ/WRITE IN BIT 1 

17 71 

1231 

3406 


DC A I 

TMP5 


1772 

12 32 

5622 


JMP I 

SETRW 

/RETURN TO CALLER 

17 73 



/ 




17 74 




EJECT 





/ 


1 / - 



/ 

THIS OOES THE ACTUAL OPErwION 

1777 



/ 




2000 

1233 

0000 

LTPDO, 

0 



2001 

12 34 

12 21 


TAD 

LTPQP+5 

/BLOCK NUMBER 

2002 

1235 

3272 


DC A 

LTBLK 

/MOVE TO OP 

20 03 

12 36 

1615 


TAO I 

LTPQP*1 


2004 

1237 

7006 


rtl 


/READ/WRITE BIT TO LINK 

20 05 

12 40 

/6 30 


S2L CLA 


/SKIP IF READ 

2006 

1241 

7307 


FOUR 


/ELSE MAKE WRITE 

20 07 

12 42 

13 32 


TAD 

LTRDE 

/BUILD BASIC INSTRUCTION 

2010 

1243 

3271 


OCA 

LT OP 


20 11 

12 44 

73 27 


SI X 


/MASK FOR UNIT 

2012 

1245 

7001 


IAC 


n IN AC 

20 13 

12 46 

0615 


AND I 

LTPQP+1 

/GET UNIT 

2014 

1247 

7110 


CLL rar 


/LOW ORDER TO LINK 

2015 

12 50 

33 31 


DC A 

LT 1 

/SAVE HIGH ORDER 

2016 

1251 

70 06 


RTL 



2017 

12 52 

70 06 


rtl 


/LOW ORDER TO BIT 8 

20 20 

12 53 

12 71 


TAD 

LT OP 

/COMBI NE UNI T 

20 21 

12 54 

32 71 


DC A 

lt OP 

/WITH BASIC OP 

20 22 

12 55 

1216 


TAD 

LTPQP+2 

/BUFFER FIELD 

2023 

12 56 

0153 


AND 

P7 0 


20 24 

1257 

7106 


CLL RTL 



20 25 

1260 

70 06 


rtl 



2026 

1261 

7006 


rtl 


/FIELO TO BITS 0-2 

2027 

1262 

13 31 


TAD 

LT 1 

/HI ORDER UNIT 

20 30 

1263 

1330 


TAD 

LTPX08 

/OTHERS 

20 31 

12 64 

61 41 


LINC 



20 32 




LMOQE 



20 33 

1265 

0001 


AXO 


/SET EXT OPS 

20 34 

12 66 

10 00 


LD A 



20 35 

12 67 

1217 


LTPQ P*3 


/BUFFER AD DR 

20 36 

12 70 

0023 


THA 


/SET ADDRESS 

20 37 

1271 

0702 

IT OP , 

ROE 


/READ OR WRITE 

20 40 

1272 

0000 

ltblk. 

0 


/THIS BLOCK 

20 41 

12 73 

00 02 


POP 



2042 




PMOOE 



2043 

1274 

5633 


JMP I 

LTPDO 

/OPERATION STARTED 

20 44 



/ 




20 45 



/ 

GO00 project FOR 

SOMEDAY! 

20 46 



/ 

MAKE WRITE CHECKING OPTIONAL 

2047 



/ 




2050 




EJECT 





2051 

2052 

2053 
20 54 
2055 
20 56 
2057 
20 60 
2061 
2062 

2063 

2064 

2065 

2066 
2067 
20 70 
2071 
20 72 
2073 
20 74 
2075 
20 76 

20 77 
2100 
2101 
2102 

2103 

2104 

2105 

2106 
2107 
2110 
2111 
2112 

2113 

2114 

2115 

2116 
2117 
2120 
2121 
2122 

2123 

2124 

2125 

2126 
2127 

2130 

2131 

21 32 

2133 

2134 

2135 


/ 

/ LINC TAPE INTERRUPT HANDLER 

/ 

/ MUST BE IN SEGMENT 0 


12 75 

00 02 

/ 

/ 

/ 

LTPINT, 

ENTERED BY LIN 
RETURN TO INTE 

00 02 

1276 

7300 


CLA CLL 

1277 

1334 


TAD LTBLEN 

1300 

1220 


TAD LTPQP* 

1301 

32 20 


OCA LTPQP* 

1302 

7630 


S£L CLA 

13 03 

5315 


JMP LTPNXT 

1304 

1334 


TAD LTBLEN 

13 05 

12 17 


TAD LTPQP* 

1306 

3217 


DC A LTPQP + 

13 07 

22 21 


IS Z LTPQP* 

1310 

1214 

LTPCDF , 

tad ltpqp 

13 11 

33 12 


DC A ,*1 

1312 

6201 


CDF 

1313 

4233 


JMS LTPDO 

1314 

57 33 


JMP I LT EX IT 

1315 

4546 

f 

/ 

/ 

/ 

LTPNXT. 

this operation 

GET THE NEXT 

JMS I DQUEUE 

1316 

1214 


LTPQP 

1317 

5321 


JMP LTICLR 

1320 

5310 

/ 

JMP LTPCDF 

1321 

6141 

/ 

/ 

LTICLR. 

NO MORE ON Q, 

LINC 

1322 

1000 


LM ODE 

LDA 

13 23 

0454 


LTNONE 

1324 

4450 


STC LTLINC 

1325 

0001 


AXO 

13 26 

00 02 


PDP 

1327 

5733 


PM ODE 

JMP 1 LT EX IT 

1330 

0130 

f 

ltpxob. 

130 


1331 

0000 

LT 1, 

0 

1332 

0702 

ltrde, 

70 2 

13 33 

02 67 

LT EX IT , 

INTEX 

1334 

0400 

LTBLEN. 

400 



/ 

EJECT 


C MODE JMP 
X 

/ENTER pdp mode 

/BLOCK LEN 
4 /PLUS COUNT 

4 /UPDATE COUNT 
/MORE TO GO? 

/NO»GET NEXT FROM Q 
/YES-BUMP 

3 /BUFFER AD DR 
3 

5 /BUMP BLOCK NO 
/GET PARAM CDF 

/MODIFIED TO ADDRESS PARAM LIST 
/DO THE OPERATION 


IS complete 


/NO MORE ON Q 
/DO IT 

DISABLE INTERRUPTS 


/REMOVE LTPINT 
/FROM INTERRUPT 
/SCAN CHAIN 

/CLEAR XOB TO PREVENT INTERRUPTS 


/RETURN 

/ENABLE INTERRUPTS, 
/EXTENDED ADOR, 

/AND NO PAUSE 


o 



JOB CONTROL BOOTSTRAP 


^ y 

zK / 

2140 / 


2141 

13 35 

00 00 

JCBOOT, 

0 



2142 

1336 

6141 


LINC 



2143 




LMODE 



2144 

1337 

1020 


LDA I 



2145 

1340 

0020 


20 



2146 

1341 

0004 


ESF 


/IO PRESET TO CLEAR ALL FLAGS 

2147 

13 42 

10 00 


LDA 



2150 

1343 

0454 


LTNONE 


/CLEAR LTP INTERRUPT 

2151 

13 44 

4450 


ST C 

LTLINC 

/SCAN CHAIN ENTRY 

2152 

1345 

0002 


POP 



2153 




PM ODE 



2154 

1346 

1362 


TAD 

RCCP 

/RESTORE CONTROL 

21 55 

13 47 

31 77 


DC A 

TT PC TL 

/CHAR HANDLER 

2156 

13 50 

62 01 


CDF 

0 


2157 

1351 

3214 


DC A 

ltpqp 


2160 




ASMIFN 

RK08 


2161 

13 52 

37 61 


DC A I 

POP 

/CLEAR 0 ON SYSTEM DEVICE 

21 62 

13 53 

44 21 


JMS I 

RE AO 

/GET JOB CONTROL 

21 63 

13 54 

05 53 


JOBCTL 



2164 

1355 

4423 


JMS I 

WA IT 

/WAIT FOR IT 

21 65 

13 56 

05 53 


JOBC TL 



2166 

13 57 

57 60 


JMP I 

.♦1 

/ENTER JOB CONTROL 

21 67 

13 60 

34 00 


JO BE NT 



2170 



/ 




2171 




AS MI FN 

RK 08 


2172 

1361 

2413 

POP. 

DKQP 



2173 

1362 

1637 

RCCP, 

TTINRM 

-1 

/CONSTANT FOR RESTORING 

2174 



/ 



CONTROL CHAR HANDLER 

2175 



/ 




2176 



/ 




2177 



/ 

END OF 

L OA DE R 


22 00 



/ 




22 01 




*, 4 7 60 0+171 

/FOLLOWING AT END OF PAGE 

2202 



/ 




22 03 



/ 

RE AOS 

THE LAST 

BLOCK OF A BINARY FILE 

22 04 



/ 

OVERLAYING THE 

LOADER, THEN SETS THE MODE 

22 05 



/ 

AND JUMPS TO THE PROGRAM STARTING ADDRESS. 

2206 



/ 




22 07 

13 71 

44 21 

LOLA ST, 

JMS I 

READ 

/READ LAST BLOCK 

2210 

1372 

0561 


LDLIST 



2211 

1373 

44 23 


JMS I 

WAIT 

/WAIT COMPLETION 

2212 

13 74 

05 61 


LDLIST 



22 13 

13/5 

62 02 

LD ST RT , 

Cl F 


/" Cl F X" OR "LINC" 

2214 

1376 

5777 


JMP I 

.♦1 

/"JMP" OR "LIF" 

2215 

13 77 

00 00 


0 


/A DDR OR "JMP" 

2216 



/ 




2217 




ASMIFN 

.4177 


22 20 



ERROR 


/ADJUST 

ORG ABOVE TO PUT THIS 

2221 



/ 

AT PAGE BOUNDARY, 

2222 



/ 




22 23 




EJECT 





2224 



/ 



2225 




PAGE 


2226 



/ 



2227 



/ 

TTY I/O ROUTINE 

2230 



/ 



2231 



/ 

KEYBOARD AND PRINTER INTERRUPT 

2232 



/ 

HANDLERS ARE ALWAYS ENABLED 

2233 



/ 



2234 

1400 

2007 

IOTTY, 

JS2 

RWSW /0=READ, -lsWRITE 

22 35 

14 01 

56 30 


JMP I 

TTIOER /INPUT 

2236 



/ 



2237 



/ 

QUEUE 

OUTPUT REQUEST 

2240 



/ 



2241 

1402 

4545 

TTQQ, 

JMS I 

NQUEUE 

2242 

14 03 

14 21 


TTOQP 


2243 

1404 

5550 


JMP I 

MXSKP /RETURN 

22 44 

14 05 

12 23 


TAD 

TTOQP+2 /BUFFER CDF 

2245 

1406 

3232 


DCA 

TTOCDF 

22 46 

14 07 

22 27 


IS i 

TTOFLG /IS ANYTHING RUNNING? 

2247 

1410 

5215 


JMP 

TTCLUG /YES - WAIT TILL HES DONE 

22 50 

1411 

72 40 


MONE 


2251 

1412 

3227 


DCA 

TTOFLG /NO - RESET FLAG 

22 52 

1413 

42 31 


JMS 

TTOPUT /START THIS 

2253 

1414 

5550 


JMP I 

MXSKP 

2254 



/ 



22 55 



/ 

IN THE 

UNUSUAL CASE THAT AN OUTPUT REQUEST 

2256 



/ 

COMES 

WHILE AN INPUT CHARACTER IS BEING ECHOEO 

2257 



/ 

THIS FIXES UP THE COUNT. 

22 60 



/ 



2261 

1415 

7240 

TTCLUG. 

MONE 


2262 

1416 

1225 


TAD 

TT0QP*4 /ADJUST COUNT IN 

2263 

1417 

3225 


DCA 

TTOQP+4 /SPECIAL CASE 

22 64 

1420 

55 50 


JMP I 

MXSKP 

2265 



/ 



2266 



/ 



2267 

1421 

0000 

TTQQP, 

0 

/CDF TO PARAMS IF Q ACTIVE 

2270 

14 22 

00 00 


0 

/PARAM LIST AD DR 

2271 

1423 

0000 


0 

/BUFFER CDF 

2272 

14 24 

00 00 


0 

/CURRENT BUFFER LOCATION 

2273 

1425 

0000 


0 

/REMAINING COUNT 

2274 

1426 

0000 


0 

/IGNORED 

2275 



/ 



22 76 

14 27 

77 77 

TTOFLG . 

-1 

/-I IF NO PRINTING ACTIVE NOW 

2277 

1430 

1600 

TTJQER, 

TTIQ 


2300 



/ 



23 01 



/ 

PRINT 

NEXT CHAR IN BUFFER 

23 02 



/ 



2303 

1431 

0000 

TTOPUT, 

0 


2304 

14 32 

6201 

TTOCDF , 

CDF 


23 05 

1433 

16 24 


TAD I 

TTQQP+3 /GET NEXT CHAR 

2306 

14 34 

22 24 


IS Z 

TTOQP+3 /BUMP ADDR 

2307 

14 35 

43 00 


JMS 

TTECHO /OUTPUT CHAR 

2310 

14 36 

5631 


JMP I 

TTOPUT 

2311 



/ 



2312 




EJECT 




A 

2o j.4 



/ 

/ 

TELEPRINTER INTERRUPT HANDLER 

2315 



/ 





2316 



/ 

PENDING 

ECHO REQUESTS ARE HONORED BEFORE NORMAL 

2317 



/ 

OUTPUT. 

THIS MAY 

BE CHANGED BY CHANGING THE 

2320 



/ 

ORDER 

OF 

THE TESTS ON TTECNT AND TTOQP. BELOW. 

2321 



/ 





2322 

1437 

0000 

TTOINT, 

0 




2323 

1440 

72 00 


CL A 




2324 

1441 

1631 


TAD 


TTECNT 

/ECHO COUNT 

2325 

1442 

7710 


SPA CL A 


/ANY PENDING? 

2326 

1443 

5264 


JMP 


TTEOUT 

/YES - ECHO TAKES PRIORITY 

23 27 

1444 

12 21 


TAD 


TTOQP 

/NO - LOOK AT Q 

2330 

1445 

7650 


SNA CLA 


/IS THERE AN OUTPUT REQUEST? 

23 31 

14 46 

5260 


JMP 


TT OC LR 

/NO - CLEAR FLAG AND QUIT 

2332 

1447 

2225 


IS2 


TTOQP+4 

/CHECK REMAINING COUNT 

23 33 

14 50 

52 56 


JMP 


TT ON XT 

/MORE TO GO 

2334 

14 51 

4546 


JMS I 


DQUE UE 

/END OF REQUEST - GET NEXT 

23 35 

14 52 

14 21 


TTOQp 




23 36 

14 53 

52 60 


JMP 


ttoclr 

/NO MORE - CLEAR FLAG 

23 37 

14 54 

12 23 


TAD 


TT OQ P* 2 

/GET NEXT BUFFER COF 

2340 

1455 

3232 


OCA 


TTOCDF 


23 41 

14 56 

42 31 

IT ON XT i 

JMS 


TT OP UT 

/PUT NEXT OUT 

23 42 

14 57 

56 37 


JMP I 


TTOINT 

/CONTINUE UNTIL NEXT INTERRUPT 

23 43 



/ 





23 44 



/ 

THERE 

IS 

NOTHING 

- MORE TO BE PRINTED, 

23 45 



/ 

WE MUST 

CLEAR FLAG TO PREVENT INTERRUPT LOOPS. 

23 46 



/ 





23 47 

14 60 

72 40 

TT OC iR , 

mone 




23 50 

14 61 

32 27 


OCA 


ttoflg 

/READY FOR ANYTHING 

23 51 

14 62 

60 42 


TCF 



/clear flag 

23 52 

14 63 

56 37 


JMP I 


TT 01 NT 

/AND EXIT 

2353 



/ 





23 54 



/ 

ECHO HANDLER 


2355 



/ 





23 56 

14 64 

17 32 

TTEOUT , 

TAD I 


TTEBOP 

/NEXT ECHO CHAR 

2357 

14 65 

6046 


TLS 



/SEND IT 

23 60 

14 66 

7200 


CLA 



/FORGET IT 

2361 

14 67 

2331 


IS 2 


TTECNT 

/REMAINING ECHO COUNT 

2362 

1470 

7410 


SKP 



/MORE TO GO 

2363 

14 71 

5637 


JMP I 


TTOINT 

/END OF ECHO - QUIT 

23 64 

14 72 

72 01 


ONE 




23 65 

14 73 

13 32 


TAD 


TTEB OP 

/I NCR POINTER 

23 66 

14 74 

03 34 


AND 


TTEBLN 

/FORCE WRAP-AROUND 

23 67 

14 75 

13 33 


TAD 


TTEBUF 


23 70 

1476 

33 32 


DC A 


TTEBOP 

/NEW POINTER 

23 71 

14 77 

56 37 


JMP I 


TTOINT 


2372 



/ 





23 73 




EJECT 






2374 



/ 




23 7b 



/ 

ECHO CHAR IN AC. 

buffered 

2376 



/ 




2377 

1500 

0000 

TTECHO . 

0 



2400 

1501 

6201 


CDF 

0 


2401 

1502 

3163 


DC A 

TTECHR 


2402 

15 03 

1334 


TAD 

TTEBLN 

/BUFFER SIZE 

2403 

1504 

1331 


TAD 

TTECNT 

/COMPARE BUFFER USE 

2404 

1505 

7710 


SPA CIA 


/BUFFER FULL? 

2405 

1506 

5700 


JMP I 

TTECHO 

/YES-DO NOT ECHO 

24 06 

1507 

2227 


ISZ 

ttoflg 

/IS ANYTHING GOING ON? 

2407 

1510 

5315 


JMP 

TTEQ 

/YES - Q THIS 

24 10 

1511 

1163 


TAD 

TTECHR 

/NO - PUT OUT NOW 

2411 

1512 

6046 


TLS 



2412 

1513 

72 00 


CIA 



2413 

1514 

5700 


JMP I 

TTECHO 

/RESUME 

2414 



/ 




2415 



/ 

SOMETHING Is PRINT ING — 

24 16 



/ 

WE MUST 

PUT THIS 

CHAR IN THE RING BUFFER, 

2417 



/ 




24 20 

1515 

13 31 

TTEQ , 

TAD 

TT EC NT 


2421 

1516 

7041 


CIA 


/POS BUFFER LOAD 

24 22 

1517 

13 32 


TAD 

TTEBOP 

/PLUS OUTPUT ADDR 

2423 

15 20 

0334 


AND 

TTEBLN 

/WRAP AROUND 

24 24 

15 21 

13 33 


TAD 

TTEBUF 


2425 

1522 

3162 


DC A 

TTETMP 


2426 

15 23 

1163 


TAD 

TTECHR 


2427 

1524 

3562 


OCA I 

TTETMP 


2430 

1525 

7240 


MONE 



2431 

1526 

1531 


TAD 

TTECNT 

/DECR COUNT 

24 32 

1527 

5331 


OCA 

TTECNT 


2433 

1530 

5700 


JMP I 

TTECHO 


2434 



/ 




2435 



/ 




2436 



TTETMP? 

QT1 



2437 



TTECHR= 

QT2 



24 40 

15 51 

00 00 

TT EC NT , 

0 



2441 

15 32 

1540 

TTEBOP, 

TTEBFF 


/VARIABLE-CURRENT OUTPUT I 

2442 

1533 

1540 

TTEBUF , 

TTEBFF 


/CONSTANT-START OF BUFFER 

2443 

1534 

0003 

TTEBLN , 

TTBL.EN-1 



2444 



/ 




2445 



/ 

BECAUSE 

OF THE RING BUFFERING SCHEME USED 

2446 



/ 

THE ECHO 

buffer 

MUST BE A POWER OF TWO 

2447 



/ 

WORDS LONG. AND 

MUST START AT A LOCATION 

24 50 



/ 

A MULTIPLE OF ITS LENGTH, CAVEAT EMPTOR, 

2451 



/ 




24 52 



TTMBLN 8 

-ttblen 


/USEFUL VALUE 

2453 




», +TTBLEN-1STTMBLN 

2454 

15 40 

0000 

TTEBFF, 

0 



2455 




«TTE8FF*TTBLEN 


2456 



/ 




2457 



/ 

THIS SPACE SHOULD BE USED FOR A 

2460 



/ 

ROUTINE 

TO KEEP 

TRACK OF TAB POSITIONS 

2461 



/ 




2462 




EJECT 




Cl 



CM 



/ 





240-t 





PAGE 



24 65 



/ 





2466 



/ 


QUEUE 

INPUT REQUEST 

2467 



/ 





2470 

1600 

4545 

TT 

IQ, 

JMS I 

NQUEUE 


2471 

1601 

1611 



TT IQP 


/INPUT Q POINTER 

2472 

1602 

5550 



JMP I 

MXSKP 


24 73 

16 03 

1213 



TAD 

TTIQP+2 

/BUFFER CDF 

2474 

1604 

3305 



DC A 

TTICDF 


2475 

1605 

1214 



TAD 

TTIQP+3 

/BUFFER ADDR 

2476 

1606 

7041 



CIA 


/COMPLEMENTED IS 

24/7 

16 07 

3346 



DC A 

TTRLIM 

/RUBOUT LIMIT 

2500 

1610 

5550 



JMP I 

MXSKP 

/READY TO GO 

2501 



/ 





2502 



/ 





25 03 

1611 

00 00 

TT 

1QP, 

0 


/CDF IF CHAIN GOING 

2504 

1612 

0000 



0 


/PARAM LIST ADDR 

25 05 

16 13 

00 00 



0 


/BUFFER CDF 

25 06 

1614 

00 00 



0 


/CURRENT LOCATION IN BUFFER 

25 07 

1615 

00 00 



0 


/REMAINING COUNT 

2510 

1616 

00 00 



0 


/IGNORED 

2511 



/ 





2512 



/ 


KEYBOARD INTERRUPT HANDLER 

2513 



/ 





2514 



TT 

11 NT = 

,-l 


/USE EXTRA LOC 

2515 

1617 

6036 



KRB 


/GET THE CHAR 

2516 

16 20 

0274 



AND 

TT177 

/STRIP PARITY 

25 17 

16 21 

12 75 



TAD 

TT 20 0 

/FORCE ON 

25 20 

16 22 

32 32 



DC A 

TTICHR 

/HOLD IT 

25 21 

16 23 

44 27 



JMS I 

IN TP SH 

/save interrupt status 

25 22 

16 24 

60 01 



ION 


/allow interrupts while we work 

25 23 



/ 





25 24 



/ 


IS IT 

CONTROL? 


2525 



/ 





25 26 

16 25 

12 32 



TAD 

TT ICHR 

/GET CHAR 

25 27 

16 26 

1276 



TAD 

TT M2 40 

/COMPARE BLANK 

2530 

1627 

7700 



SMA CL A 

/IS IT CONTROL? 

25 31 

16 30 

5240 



JMP 

TTINRM 

/NO, NORMAL 

2532 

1631 

4577 



JMS I 

ttpctl 

/GO TO USERS HANDLER 

25 33 

16 32 

0000 

TTICHR , 

0 


/WITH THIS CHAR 

2534 

1633 

5240 



JMP 

TTINRM 

/PROCESS NORMALLY 

25 35 

16 34 

4355 



JMS 

TTECTL 

/ELSE ECHO AS CONTROL 

2536 

1635 

6002 



10 F 



25 37 

16 36 

52 72 



JMP 

TT IX IT 

/AND QUIT 

2540 



/ 





25 41 





EJECT 





2542 



/ 



25 43 



/ 

IS THIS 

A SPECIAL CHARACTER? 

2544 



/ 



2545 

1637 

0000 


0 

/DUMMY SUBR LOC 

'25 4 6 

16 40 

1277 

TTINRM . 

TAD 

TTISPC /POINTER TO SPECIAL CHAR TABLE 

2547 

1641 

3303 


DC A 

ttitmp 

2550 

16 42 

12 32 

TT IS CN , 

TAD 

TTICHR /INPUT CHAR 

2551 

1643 

1703 


TAD I 

TTITMP /COMPARE SPECIAL 

25 52 

16 44 

23 03 


IS 2 

TT ITMP 

25 53 

16 45 

74 50 


SN A 

/EQUAL? 

25 54 

1646 

53 00 


JMP 

TTIFSP /YES-GO TO THAT 

2555 

1647 

2303 


IS2 

TTITMP /POINT TO NEXT CHAR 

25 56 

16 50 

77 40 

TTM40, 

SMA S2A 

CLA /TOO FAR FOR POSSIBLE EQUAL? 

2557 

1651 

5242 


JMP 

TTISCN /NO-TRY NEXT 

2560 



/ 



2561 



/ 

NORMAL 

CHARACTER 

2562 



/ 



2563 

16 52 

43 03 


JMS 

TTI ACT /VERIFY ACTIVITY 

2564 

16 53 

12 32 


TAD 

TTICHR /GET THE CHAR 

2565 

16 54 

3614 


DC A I 

TTIQP*3 /PUT IN THE BUFFER 

2566 

1655 

22 14 


IS 2 

TT IQ P+ 3 

2567 

1656 

1232 


TAD 

TTICHR 

2570 

16 57 

4747 


JMS I 

TTECP /ECHO THE CHAR 

2571 

1660 

2215 


IS2 

TTIQP+4 /ANY MORE? 

2572 

1661 

5272 


JMP 

TTIXIT /YES-WAIT FOR NEXT 

2573 



/ 



25 74 



/ 

THIS REQUEST IS SATISFIED. 

2575 



/ 

LOOK FOR NEXT REQUEST ON QUEUE, 

2576 



/ 



2577 

16 62 

4546 

TTIN XT i 

JMS I 

DQUEUE /GET NEXT LIST OFF QUEUE 

2600 

1663 

1611 


TTIQP 


2601 

1664 

5272 


JMP 

TTIXIT /NONE-QUIT NOW 

26 02 

16 65 

1213 


TAD 

TTIQP+2 /GET BUFFER CDF 

2603 

1666 

3305 


DC A 

TTICDF 

2604 

1667 

1214 


TAD 

TTIQP*3 /BUFFER START AD DR 

2605 

1670 

7041 


CIA 

/complemented 

26 06 

16 71 

33 46 


DC A 

TTRLIM /IS RUBOUT LIMIT 

2607 

1672 

4430 

TTIXIT, 

JMS I 

IN TP OP 

2610 

16 73 

5616 


JMP I 

TT 11 NT 

2611 



/ 



2612 

1674 

0177 

TT 17 7, 

177 


2613 

1675 

0200 

TT200, 

200 


2614 

16 76 

7540 

TT M2 40 , 

-2 40 


2615 

1677 

0525 

TTISPC, 

spchar 

/LIST OF SPECIAL CHARACTERS 

2616 



/ 



2617 



/ 



26 20 

17 00 

1703 

TTIFSP. 

TAD I 

TTITMP /ADDR OF ROUTINE 

2621 

1701 

3303 


OCA 

TTITMP 

26 22 

17 02 

5703 


JMP I 

TTITMP /GO HANDLE SPECIAL CHARACTER 

2623 



/ 



2624 




EJECT 




2 ,. 



/ 




2626 



/ 

VERIFY 

THAT INPUT IS ACTIVE, 


26 27 



/ 

AND SET 

BUFFER DATA FIELD 


26 30 



/ 




2631 



TTIT MP = 

1 

/USE ENTRY FOR TEMPORARY 

2632 

1703 

0000 

TT I ACT» 

0 



26 33 

1704 

1211 


TAD 

TTIQP /Q ACTIVITY INDICATOR 

2634 

1705 

6201 

TTICDF, 

CDF 

/SET BUFFR FIELD 


2635 

17 06 

60 02 


IOF 

/STOP INTERRUPTS 


2636 

1707 

7640 

TTM140, 

S2A CLA 

/IS INPUT UP? 


2637 

1710 

5703 


JMP I 

TTIACT /YES 


2640 

1711 

5272 


JMP 

TT IXIT /NO 


2641 



/ 




2642 



/ 

HANDLERS FOR SPECIAL CHARACTERS 


26 43 



/ 




2644 



/ 

CHAR IS 

377, RUBOUT 


26 45 



/ 




2646 

1712 

43 03 

TTRUB. 

DM S 

TTIACT /INPUT ACTIVE? 


26 47 

17 13 

12 14 


TAD 

TTIQP* 3 /CHECK FOR BEGIN 


26 50 

1714 

13 46 


TAD 

TTRLIM /OF BUFFER 


2651 

17 15 

76 50 


SNA CLA 

/IS IT AN ATTEMPT 

TO 

2652 

1716 

52 72 


JMP 

TT IX IT /RUB N ON =E XI ST AN T 

CHARACTER 

26 53 

1717 

12 40 


MO NE 

/OK-DO IT 


26 54 

17 20 

1214 


TAD 

TT IQ P* 3 /DECREMENT A DDR 


26 55 

17 21 

32 14 


DC A 

TT IQ P* 3 


26 56 

17 22 

3614 


DCA I 

TT IQ P* 3 /CLEAR LAST CHAR 


26 57 

17 23 

13 50 


TAD 

BACK SL /GET BACKSLASH 


26 60 

17 24 

47 47 


JMS I 

TTECP /ECHO IT 


26 61 

17 25 

72 40 


MONE 



26 62 

17 26 

1215 


TAD 

TTIQP* 4 /I NCR REMA IN IN G CO 

UN T 

26 63 

17 27 

32 15 


DCA 

TT IQ P+4 


26 64 

17 30 

52 72 


JMP 

TT IX IT /SO EASY 


26 65 



/ 




2666 



/ 

CH AR IS 

212 OR 215, LINE FEEO OR CARRIAGE RETURN 

26 67 



/ 




26 70 

17 31 

43 03 

TT CR IF , 

JMS 

TTIACT /INPUT ACTIVE? 


26 71 

17 32 

12 32 


TAD 

TT ICHR /GET CHAR 


26 72 

17 33 

3614 


DCA I 

TTIQP+3 /INTO BUFFER 


26 73 

17 34 

13 51 


TAD 

CARRET /CARRIAGE RETURN 


2674 

17 35 

47 47 


JMS I 

TTECP /ECHO NEW LINE 


26 75 

17 36 

13 52 


TAD 

linfeo 


2676 

1737 

4747 

TTSX IT * 

JMS I 

TTECP 


2677 

17 40 

5262 


JMP 

TTINXT /GET NXT REQUEST 


27 00 



/ 




27 01 



/ 

CHAR IS 

233, 375 , OR 3 76 , ALTMOOE 


2/02 



/ 




27 03 

17 41 

4303 

TTALT, 

JMS 

TTIACT /INPUT ACTIVE? 


27 04 

17 42 

13 54 


TAD 

ESCAPE /GIVE USER 233 


2705 

1743 

3614 


DCA I 

TT IQP+3 


2706 

1744 

1353 


TAD 

DOLLAR /ECHO DOLLAR 


27 07 

1745 

53 37 


JMP 

TTSXIT /SPECIAL EXIT 


2710 



/ 




2711 

1746 

00 00 

TTKLIM, 

0 



2712 

1747 

1500 

TTECP, 

TTECHO 



2713 

17 50 

03 34 

BA CK SL , 

33 4 



2714 

1751 

0215 

CARRET , 

215 



27 15 

17 52 

0212 

LINFED, 

212 



2716 

17 53 

02 44 

DOLLAR , 

24 4 



2717 

1754 

0233 

ESCAPE , 

233 




'■» ~t n m 



2722 



/ 




2723 



/ 

ECHO CONTROL CHARACTER 

27 24 



/ 

AS UP 

ARROW, CHAR 

2725 



/ 




2726 

1755 

0000 

ttectl, 

0 



2727 

1756 

1364 


TAD 

UPARRW 


2760 

1757 

4747 


JMS I 

TTECP 


2731 

1760 

1232 


TAD 

TTICHR 


27 32 

1761 

1365 


TAO 

TT10 0 

/CONVERT TO NON-CONTROL CHAR 

2733 

17 62 

4747 


JMS I 

TTECP 


2734 

1763 

5755 


JMP I 

TTECTL 


2735 



/ 




2736 

1764 

0336 

UPARRW , 

336 



2737 

1765 

0100 

TT100, 

100 



2740 



/ 




2741 



/ 




27 42 



/ 

CONTROL C. EXI T 

ON FIRST OCCURANCE 

2743 



/ 

IGNORE 

MULTIPLE 

QCCURANCES, 

27 44 



/ 




2745 

1766 

2371 

TTCTLC, 

IS2 

CTLCSW 

/TEST SWITCH 

27 46 

1767 

5272 


JMP 

TTIX IT 

/HOLD ON, DENNY 

2747 

1770 

4425 


JMS I 

EXIT 


2750 



/ 




2751 

1771 

7777 

CTLCSW , 

-1 



2752 



/ 




2753 



/ 




2754 




ASMJFM 

2000-, 


2755 



WARNING 


/DISPLAY 

ROUTINES OVERLAY THIS CODE 

2756 



/ 




2757 



/ 




27 60 



/ 

MA02 



2761 



/ 




2762 




chain 

"MB02" 





9 


( 



K> 

C\J 

* \ \ s 



*-» r\j ro 
ssss 
s s s s 
s a s s 


i 



00 05 




ASMIF2 

dial 

0006 




SEGMNT 

5 

0007 




ASMIFN 

OIAL 

0010 




SEGMNT 

1 

0011 



/ 



0012 




ASMIF2 

GRIDS!DJSPLY 

0010 




ASMSKP 

227-14 

0014 



/ 



0015 



/ 

4*6 GRIDS FOR 1968 ASCI 

0016 



/ 



0017 

0000 

0000 


0 

/UNUSED 

0020 

0001 

0000 

H0R2 i 

0 


0021 

0002 

0000 

01 GP, 

0 


00 22 

00 03 

44 37 


44 37 

/01I A 

0023 

0004 

3744 


3744 


00 24 

00 05 

5177 


5177 

/02! B 

0025 

00 06 

2651 


2651 


0026 

0007 

4136 


4136 

/03S C 

0027 

0010 

2241 


2241 


0030 

0011 

4177 


4177 

/04l D 

0031 

0012 

3641 


3641 


0032 

0013 

5177 


5177 

/05i E 

0033 

0014 

4151 


4151 


0034 

0015 

4477 


4477 

/0 6t F 

0035 

0016 

4044 


4044 


0036 

0017 

4136 


4136 

/07IG 

0037 

0020 

2645 


2645 


0040 

0021 

1077 


1077 

/10I H 

0041 

00 22 

7710 


7710 


0042 

0023 

7741 


7741 

/lit I 

0043 

0024 

0041 


0041 


0044 

0025 

4102 


4102 

/12i J 

0045 

0026 

4076 


4076 


00 46 

0027 

10 77 


10 77 

/131 K 

0047 

0030 

4324 


4324 


00 50 

0031 

0177 


0177 

/14I L 

0051 

0032 

0301 


0301 


0052 

0033 

3077 


30 77 

/15I M 

0053 

0034 

77 30 


7730 


0054 

00 35 

3077 


30 77 

/161 N 

0055 

0036 

7706 


7706 


0056 

0037 

4136 


4136 

/17»0 

0057 

0040 

3641 


3641 


00 60 

00 41 

4477 


4477 

/20tP 

0061 

0042 

3044 


3044 


0062 

0043 

4536 


45 36 

/21: Q 

0063 

0044 

3542 


3542 


00 64 

0045 

4477 


4477 

/22t R 

0065 

0046 

3146 


3146 


00 66 

0047 

5121 


5121 

/23( S 

0067 

0050 

4651 


4651 


00 70 

0051 

4040 


40 40 

/24I T 

0071 

0052 

4077 


4077 


0072 

0053 

0177 


0177 

/25i U 

0073 

0054 

7701 


7701 


0074 

0055 

0176 


0176 

/26! V 

0075 

0056 

7402 


7402 


0076 

0057 

0677 


0677 

/2 7 I W 

00-7 7 

0060 

7701 


7701 


e 



/ 



0. 




EJECT 



CHARS 


a 



/ 


0 r as 

0061 

1463 

1463 

/3 0! X 

0104 

0062 

6314 

6314 


0105 

0063 

07 70 

07 70 

/31J Y 

0106 

0064 

70 07 

7007 


0107 

00 65 

4543 

4543 

/3 2! 2 

0110 

0066 

6151 

6151 


0111 

0067 

7700 

7700 

/33: C 

0112 

0070 

0041 

0041 


0113 

0071 

1020 

1020 

/3 4 I \ 

0114 

0072 

0204 

0204 


0115 

00 73 

4100 

4100 

/35i ] 

0116 

0074 

0077 

0077 


0117 

00 75 

4020 

40 20 

/3 6: CA RO T 

0120 

0076 

2040 

2040 


0121 

00 77 

01 01 

01 01 

/3 7! UNDE RL INE 

0122 

0100 

0101 

0101 


0123 

0101 

00 00 

00 00 

/4 0:SPACE 

0124 

0102 

0000 

0000 


0125 

0103 

75 00 

75 00 

/41I X! 

0126 

0104 

00 00 

00 00 


0127 

01 05 

70 00 

70 00 

/4 2I " 

0130 

0106 

00 70 

00 70 


01 31 

0107 

22 77 

22 77 

/4 3 J POUND SIGN 

0132 

0110 

7722 

7722 


0133 

0111 

5721 

57 21 

/4 4I S 

0134 

0112 

4671 

4671 


0135 

0113 

6462 

6462 

/4 51 % 

0136 

0114 

2313 

2313 


0137 

0115 

5166 

5166 

/46:4 

0140 

0116 

0526 

0526 


0141 

0117 

60 00 

60 00 

✓4 71 APOSTROPHE 

0142 

01 20 

00 00 

00 00 


01 43 

0121 

36 00 

36 00 

/5 0! ( 

0144 

0122 

00 41 

00 41 


0145 

0123 

4100 

4100 

/5lt > 

0146 

0124 

00 36 

00 36 


0147 

0125 

20 50 

20 50 

/5 2 i * 

0150 

0126 

00 50 

00 50 


0151 

0127 

04 00 

04 00 

/5 3! + 

0152 

0130 

0437 

0437 


0153 

0131 

0500 

0500 

✓54S , 

0154 

0132 

00 06 

00 06 


0155 

0133 

04 04 

04 04 

/55i - 

0156 

0134 

0404 

0404 


0157 

0135 

03 00 

03 00 

/5 6 • , 

0160 

0136 

0003 

0003 


0161 

0137 

0402 

0402 

/57! / 

0162 

0140 

2010 

2010 


0163 

0141 

4536 

4536 

/60J 0 

0164 

0142 

3651 

3651 


0165 

0143 

2100 

2100 

/61»1 

0166 

0144 

0177 

0177 


0167 

0145 

4523 

4523 

/621 2 

0170 

0146 

2151 

2151 


0171 

0147 

4122 

4122 

/63 I 3 

0172 

0150 

2651 

2651 


0173 


/ 



01 74 



EJECT 




0176 

0151 

2414 


2414 


7641 4 


0177 

0152 

0477 


0477 




0230 

0153 

5172 


5172 


/65 I 5 


0201 

0154 

0651 


0651 




0202 

0155 

2516 


2516 


/6 6! 6 


0203 

0156 

0245 


0245 




0204 

0157 

4740 


4740 


/6 7 1 7 


0205 

0160 

6050 


6050 




02 06 

0161 

5126 


5126 


/7 0? 8 


0207 

0162 

2651 


2651 




0210 

0163 

5122 


5122 


7711 9 


0211 

0164 

3651 


3651 




0212 

0165 

2200 


2200 


7721 : 


0213 

0166 

0000 


0000 




0214 

0167 

46 01 


46 01 


77 31 ; 


0215 

0170 

0000 


0000 




0216 

0171 

14 00 


14 00 


77 41 < 


0217 

0172 

4122 


4122 




0220 

0173 

1212 


1212 


775J = 


0221 

0174 

1212 


1212 




0222 

0175 

2241 


2241 


776! > 


0223 

0176 

0014 


0014 




0224 

0177 

4020 


4020 


777! ? 


0225 

0200 

2055 


2055 




0226 



7 





0227 




PM ODE 




0230 



/ 





0231 




ASMJF2 

DISPLY 



0232 




ASMSKP 

476-233 



0233 



/ 





0234 



/ 

CHARACTER DISPLAY 


0235 



/ 

UNIT CODE = 60 

FOR ASCII, 61 FOR 

dial characters 

0236 



7 





0237 

22 01 

45 51 

IODISP, 

JMS I 

setudf 

7USERS FIELD 


02 40 

2202 

7321 


ONE STL 




0241 

2203 

0406 


AND I 

TMP5 

7GET FORMAT BIT 


0242 

2204 

70 30 

DIM750, 

CML RAR 


70»ASCII• l'DIAL 


02 43 

22 05 

2006 


IS 2 

TMP5 

7POINT TO BUFFER 

CDF 

0244 

2206 

1406 


TAD I 

TMP5 



0245 

2207 

3227 


DCA 

DI CDF 

7H0LD FOR BUFFER 

ADDRESSING 

02 46 

2210 

20 06 


IS 2 

TMP5 

7P0INT TO BUFFER 

AODR 

0247 

2211 

1406 


TAD I 

TMP5 



0250 

2212 

3002 


DCA 

TMP1 

/HOLD BUFFER A DDR 


0251 

2213 

2006 


IS2 

TMP5 



02 52 

2214 

14 06 


TAD I 

TMP5 

/BUFFER LEN 


02 53 

2215 

70 40 


CM A 


/ALLOW FOR EXTRA 

DILOOP 

02 54 

2216 

74 30 


52 L 


/SKIP IF ASCII 


0255 

2217 

7004 


RAL 


7-2#LEN-l IF DIAL 

CODES 

02 56 

22 20 

3003 


DCA 

TMP2 



0257 

2221 

7024 


CML RAL 


/GET FORMAT BIT 


02 60 

2222 

30 07 


DCA 

TMP6 

70 *0 IA L. 1 =A SC 11 


02 61 

22 23 

62 01 


CDF 

0 



0262 

22 24 

1366 


TAD 

DIP400 

/TOP OF SCOPE 


02 63 

2225 

3365 


DCA 

DI DV 



02 64 

2226 

53 04 


JMP 

DIC43 

7CR AND LF 


0265 



7 





0266 




EJECT 






0267 



/ 




02 7 0 



/ 

MAIN DISPLAY LOOP 

0271 



/ 




0272 

2227 

6201 

DICDF, 

CDF 


/ADDRESS USERS BUFFER 

0273 

2230 

1007 


TAD 

TMP6 

/FORMAT CONTROL 

0274 

2231 

7740 

DIM40, 

SMA S if A 

cla 

/FULL ASCII? 

0275 

22 32 

5320 


JMP 

DI ASCI I 

/YES 

0276 

2233 

2007 


IS H 

TMP6 

/WHICH HALFWORD? 

0277 

2234 

5240 


JMP 

DILEFT 

/LEFT 

0300 

2235 

1402 


TAD I 

TMP1 

/RIGHT 

0301 

2236 

2002 


IS 2 

TMP1 


03 02 

22 37 

5246 


JMP 

DISTRP 

/STRIP IT 

03 03 

22 40 

72 40 

DILEFT, 

MO NE 


/set sw FOR rght 

0304 

2241 

3007 


DC A 

TMP6 


03 05 

22 42 

14 02 


TAD I 

TM PI 


0306 

2243 

7012 


RTR 



0307 

22 44 

/012 


rtr 



0310 

2245 

7012 


RTR 



0311 

22 46 

0154 

DISTRP , 

AND 

P7 7 


0312 

22 47 

62 01 


CDF 

0 


03 13 

22 50 

13 72 


TAD 

DIM47 

/COMPARE TO TAB 

0314 

2251 

7450 


SNA 



0315 

22 52 

53 42 


JMP 

DIC47 

/dial tab code 

0316 

22 53 

12 77 


TAD 

DIP2 

/COMPARE TO LF 

0317 

2254 

7450 


SNA 



0320 

2255 

5306 


JMP 

DIC45 

/DIAL LINE FEED 

03 21 

22 56 

12 77 


TAD 

DI P2 

/compare to cr 

0322 

22 57 

74 50 


SN A 



03 23 

22 60 

53 04 


JMP 

QIC43 

/O 1AL CAR RET 

0324 

22 61 

1370 


TAD 

DIP3 


0325 

2262 

1231 

DIOCHR , 

TAD 

DI M4 0 

/SORT OF RESTORE 

0326 

2263 

0154 


ANO 

P7 7 


03 27 

22 64 

74 50 


SNA 


/IGNORE 2ER0 

03 30 

22 65 

5315 


JMP 

DILENO 


03 31 

22 66 

7104 


CLL RAL 


/TIMES TWO 

03 32 

22 67 

6141 


LI NC 


/GO TO LMODE FOR DISPLAY 

03 33 




lm ode 



0334 

02 70 

40 02 


ST C 

DI GP 

/A DDR OF GRID 

03 35 

02 71 

23 65 


ADD 

DI DV 

/GET VERT 

0336 

02 72 

1762 


DSC 1 

DI GP 

/DISPLAY THE FIRST GRID 

03 37 

02 73 

17 62 


DSC I 

DI GP 

/AND SECOND 

0340 

0274 

02 21 


XSK I 

H0R2 

/INTER CHAR SPACE 

03 41 

02 75 

02 21 


XSK I 

H0R2 


03 42 

0276 

0011 

DIPH, 

CLR 



0343 

0277 

0002 

DIP2 , 

PDP 


/RETURN TO PMODE FOR LOOP 

03 44 




PM ODE 



0345 

23 00 

1764 

DIHCHK , 

tad I 

DIPH 

/CHECK H0RI2 

0346 

2301 

1204 


TAD 

01M750 


0347 

2302 

7710 


SPA CL A 



03 50 

2303 

5315 


JMP 

DILENO 

/OK, GO TO NEXT CHAR 

03 51 



/ 




03 52 




EJECT 





(3353 



/ 





03 54 



/ 

CARR 

IAGE 

: RETURN 

AND LINE FEED 

0355 



/ 





03 56 

2304 

1276 

DIC43. 

TAD 


DI Pll 


03 57 

23 05 

3764 


DCA 

I 

DIPH 

/SET LEFT EDGE 

0360 

2306 

1347 

DIC45, 

TAD 


DI M2 0 


0361 

2307 

1365 


TAD 


DIDV 

/GO DOWN ONE LINE 

03 62 

2310 

33 65 


DCA 


DI DV 


0363 

2311 

1365 


TAD 


DIDV 


0364 

2312 

1366 


TAD 


DIP400 

/COMPARE TO BOTTOM OF SCOPE 

0365 

2313 

7710 


SPA 

CL A 


/OFF SCREEN? 

03 66 

2314 

55 50 


JMP 

I 

MXSKP 

/YUP-QUIT NOW 

0367 



/ 





03 70 

2315 

20 03 

01 LEND, 

IS 2 


TMP2 

/CHECK COUNT 

03 71 

2316 

52 27 


JMP 


DI CDF 

/AROUND AGAIN 

03 72 

2317 

5550 


JMP 

I 

MXSKp 

/RETURN 

0373 



/ 





0374 



/ 

GET 

AN A 

SCII CHAR 

0375 



/ 





03 76 

23 20 

1402 

DIASCII. 

TAD 

I 

TMP1 

/GET NEXT 

0377 

2321 

2002 


IS2 


TMP1 


04 00 

23 22 

62 01 


CDF 


0 


0401 

2323 

1367 


TAD 


DI M2 40 


0402 

2324 

7500 


SMA 



/CONTROL? 

0403 

2325 

5262 


JMP 


DIDCHR 

/NO-DISPLAY IT 

0404 

2326 

1371 


TAD 


DIBMCR 

/CHECK CAR RET 

0405 

2327 

7440 


S2 A 




0406 

2330 

5334 


JMP 


.*4 


0407 

2331 

1276 


TAD 


D I PI 1 


0410 

2332 

3764 


DCA 

I 

DIPH 

/SET LEFT EDGE 

0411 

2333 

5315 


JMP 


DI LEND 

/GO TO NEXT CHAR 

0412 



/ 





0413 

23 34 

13 70 


TAD 


DIP3 

/CHECK LINE FEED 

0414 

2335 

74 50 


SNA 




0415 

2336 

5306 


JMP 


DIC45 

/YES 

0416 

23 37 

7001 


IA C 



/HOW BOUT TAB 

0417 

2340 

7640 


S2A 

CL A 



0420 

2341 

5315 


JMP 


DILEND 

/NOT THAT-IGNORE 

0421 



/ 





0422 



/ 

TAB 




0423 



/ 





04 24 

23 42 

13 56 

0IC47, 

TAD 


DITABS 

/tab table 

0425 

2343 

3005 


DCA 


TMP4 


04 26 

2344 

1764 

DITBLP , 

TAD 

I 

01 PH 

/GET CURRENT CHAR POSITION 

0427 

2345 

7161 


CIA 

STL 



04 30 

2346 

14 05 


TAD 

I 

TMP4 

/COMPARE TAB POSITION 

04 31 

2347 

77 60 

01 M2 0, 

SMA 

S2A 

SNL CL A 

/PAST THIS TAB? 

04 32 

23 50 

53 53 


JMP 


01 STAB 

/NO - SET TO THIS 

0433 

2351 

2005 


ISZ 


TMP4 

/POINT TO NEXT TABLE ENTRY 

04 34 

23 52 

53 44 


JMP 


DI TBLP 

/LOOP FOR NEXT 

04 35 



/ 





04 36 



/ 

SE T 

THE 

TAB POSI TI ON 

0437 



/ 





04 40 

23 53 

14 05 

DISTAB, 

TAD 

I 

TMP4 

/TAB POSITION 

0441 

2354 

37 64 


OCA 

I 

DIPH 

/BECOMES HORI2 

04 42 

2355 

53 00 


JMP 


DIHCHK 

/CHECK EOL 

0443 



/ 





M 



/ 





5 




EJECT 




• o 



i 


0446 



/ 



0447 



/ 

TAB POSITIONS 


0450 



/ 



0451 

2356 

2357 

01 

TABS, ,+l 


0452 



/ 



0453 

2357 

0131 


131 

/tab 

0454 

2360 

0251 


251 

/POSIT 

04 55 

2361 

03 71 


371 

/ON 

0456 

2362 

0511 


511 

/PDP-1 

04 57 

23 63 

06 31 


631 

/SCREE 

0460 



/ 



04 61 



/ 

NEXT LOCATION 

MUST BE 

0462 



/ 

AND GREATER THAN 750, 

04 63 



/ 



04 64 

23 64 

2001 

01 

PH, HO RZ 


04 65 

23 65 

00 00 

DI 

DV , 0 


0466 

2366 

04 00 

DI 

P4 00 , 40 0 


04 67 

23 67 

75 40 

DI 

M2 40 , -2 40 

/SMA S 

04 70 

23 70 

00 03 

DI 

P3 , 3 


04 71 

23 71 

00 23 

DI 

BM CR , 40 si 5 


04 72 

23 72 

77 31 

DI 

M4 7, -4 7 


04 73 



/ 



04 74 



/ 



04 75 




EJECT 



IONS 

2 

N 

POSITIVE 


ZA 



04 76 



/ 



0477 



LIST 



0600 



/ 



0601 



ASMIFZ 

RK08 


0602 



NOLIST 



0503 



ASMIFZ 

RK08 


05 04 



ASMS KP 

762-504 


0505 



/ 



0506 



PAGE 



0507 



/ 



0510 



IOOI SK= , 



0511 



ASMIFZ 

RF08 


0512 



AS MS KP 

7 


0613 



/ 



0514 



JMS I 

SE TU DF 


0515 



FOUR 


/OJSK TYPE? 

0516 



AND I 

TMP5 


0517 



CDF 

0 


05 20 



SZA CL A 


/SKIP IF RK8 

0521 



JMP I 

PDRF08 

/ELSE RF08 

05 22 



/ 



0623 



/ RK8 I/O 

ROUTINE 


0524 



/ 



05 25 

24 00 

45 45 

JMS I 

NQUEUE 

/QUEUE THIS REQUEST 

0526 

24 01 

2413 

DKQP 



0527 

2402 

5621 

JMP I 

DKQED 

/IT MUST WAIT 

05 30 

24 03 

44 20 

JMS I 

SETINT 

/ENABLE HANDLER 

05 31 

24 04 

67 45 

DSKD 



0532 

24 05 

2423 

OSKINT 



0533 

2406 

4 622 

JMS I 

PSETRW 

/SET READ/WRITE BIT 

0534 

2407 

7346 

MT HR EE 



0535 

2410 

3366 

DC A 

DKRTRY 

/SET RETRY COUNT 

0536 

2411 

4301 

JMS 

DSKDO 

/START OP 

0537 

2412 

5550 

JMP I 

MXSKP 


0540 



/ 



0541 



/ 



05 42 

2413 

00 00 

DKQP# 0 


/CDF TO CURRENT LIST 

0543 

2414 

0000 

0 


/CURRENT LIST ADDR 

05 44 

24 15 

0000 

0 


/BUFFER CDF 

05 45 

2416 

00 00 

0 


/buffer AODR 

05 46 

2417 

00 00 

0 


/REMAINING COUNT 

0547 

2420 

0000 

0 


/CURRENT BLOCK 

0550 



/ 



0551 



DL0C=6732 


/LOAD COMMAND REGISTER 

0552 



DLDR =6 733 


/LOAD DK ADDR AND READ 

0553 



DLDW=6735 


/LOAD DKADDR AND WRITE 

0554 



DR DS =674 1 


/READ STATUS 

0555 



DCLS=6742 


/clear status 

0556 



DSHD =6 745 


/SKIP ON DONE 

0557 



DSKE =6747 


/SKIP ON ERROR 

05 60 



DC LA=6 751 


/clear all 

0561 



0LWC=6753 


/LOAD WORD COUNT 

0562 



DL CA =6755 


/LOAD CURRENT ADDRESS 

0563 



/ 



05 64 



/ 



05 65 

24 21 

1212 

DKQED, LTQED 



0666 

24 22 

12 22 

PSETRW. SETRW 



0667 



ASM IFN 

RF0S 


V' ^ 



PDRF08# DRF08 




0V, 2 


EJECT 



/ 


feu ,4 



/ 

OISK interrupt 

HANDLER 

05 75 



/ 




0576 

24 23 

0000 

DSKI NT , 

0 



05 77 

2424 

73 00 


CLA CUU 



0600 

2425 

1213 


TAD 

DKQP 

/USER CDF 

06 01 

24 26 

32 27 


OCA 

.♦1 


0600 

2427 

6201 


CDF 


/USERS FIELD 

0603 

24 30 

67 47 


DSKE 


/WAS THERE AN ERROR? 

0604 

2431 

5241 


JMP 

DKCTU 

/NO-CONTINUE 

0605 

24 32 

67 41 


DR OS 


/YES-GET STATUS 

0606 

2433 

0363 


AND 

dkfat 

/TEST FATAL BITS 

0607 

24 34 

23 66 


IS i 

dkrtry 

/CHECK RETRY CNT 

0610 

24 35 

74 40 


S2A 



0611 

24 36 

53 51 


JMP 

dkeRr 

/FATAL ERROR 

0612 

24 37 

43 01 


JMS 

DSKDO 

/NO-RETRY 

06 13 

24 40 

56 23 


JMP I 

DS KI NT 


0614 



/ 




06 15 

24 41 

23 65 

DKCTU* 

IS I 

dk mo RE 

/MORE TO GO? 

0616 

24 42 

52 57 


JMP 

DK NXT 

/NO-GET NEXT FROM Q 

06 17 

24 43 

13 64 


TAD 

DKLEN 


06 20 

24 44 

1216 


TAD 

OK QP *3 

/UPDATE ADDRESS 

06 21 

24 45 

3216 


OCA 

DK QP *3 


0622 

2446 

1364 


TAD 

DKLEN 


06 23 

2447 

1217 


TAD 

DKQP *4 

/UPDATE LENGTH 

0624 

2450 

3217 


DC A 

DKQP+4 


06 25 

24 51 

12 20 


TAD 

OK QP +5 

/OLD STARTING BLOCK 

0626 

24 52 

03 61 


AND 

M20 

/TRUNC TO START OF TRACK 

06 27 

2453 

1360 


TAD 

P2 0 

/BEGIN OF NEXT TRACK IS 

06 30 

24 54 

32 20 


DC A 

DK QP +5 

/NEXT START BLOCK 

06 31 

55 

43 01 


JMS 

DSKDO 

/DO THIS 

06 32 

24 56 

56 23 


JMP I 

DSKINT 


06 33 



/ 




06 34 

24 57 

45 46 

OK NX T > 

JMS I 

DQUEUE 

/GET NEXT OP 

06 35 

24 60 

2413 


DKQP 



06 36 

24 61 

52 71 


JMP 

DK CL R 

/NO MO RE-CLEAR 

06 37 

24 62 

73 46 


MT HR EE 



06 40 

2463 

3366 


DC A 

DKRTRY 


06 41 

24 64 

1213 


TAD 

DK QP 

/GET NEXT USER FIELD 

06 42 

24 65 

32 66 


DC A 

.+ 1 


06 43 

24 66 

6201 


CDF 



0644 

2467 

4301 


JMS 

DSKDO 

/START NEXT 

06 45 

24 70 

56 23 


JMP I 

DSKINT 


0646 



/ 




06 47 

24 71 

67 42 

DKCLR. 

DC US 


/CLEAR STATUS 

0650 

24 72 

1156 


TAD 

M4 


0651 

24 73 

12 23 


TAD 

DSKINT 

/RETURN-4 

0652 

2474 

3162 


DC A 

QT1 

/POINT TO DS KD I OT 

06 53 

24 75 

62 01 


COF 

0 


0654 

2476 

1160 


TAD 

KNOP 


0655 

2477 

3562 


OCA I 

QT1 

/CLEAR SETINT 

0656 

2500 

5623 


JMP I 

DSKINT 


0657 



/ 




0660 




EJECT 





0661 



/ 




06 62 



/ 

THIS DOES THE 

DISK OPERATION 

06 63 



/ 

DATA FI 

eld is 

SET FOR USERS PARAMETERS 

0664 



/ 




0665 

2501 

0000 

DSKDO. 

0 



0666 

25 02 

6742 


DCLS 



0667 

2503 

1614 


TAD I 

DKQP+1 

/READ-WRITE BIT 1 

06 70 

2504 

70 06 


RTL 



0671 

2505 

7206 


CLA RTL 


/TO BIT 10 

06 72 

25 06 

13 62 


TAD 

DKREAD 

/MAKE COMMAND 

0673 

2507 

3346 


DC A 

DKOP 


06 74 

2510 

73 25 


THREE 



0675 

2511 

0614 


AND I 

DKQP+1 

/GET UNIT 

0676 

2512 

7104 


CLL RAL 


/TO BITS 9, 10 

0677 

2513 

1215 


TAD 

DKQP+2 

/BUFFER FIELD 

07 00 

2514 

03 56 


AND 

p6 07 6 


07 01 

2515 

6732 


DLDC 


/LOAD COMMAND 

07 02 

2516 

72 40 


MONE 



0703 

2517 

1216 


TAO 

DKQP + 3 

/BUFFER ADDR 

0704 

25 20 

6755 


OL CA 


/LOAD CURRENT AOOR 

0705 

2521 

1220 


TAD 

DKQP+5 

/STARTING BLOCK 

0706 

25 22 

0357 


AND 

PI 7 

/STRIP TO SURFACE-SECTOR 

07 07 

2523 

7112 


CLL RTR 



0710 

2524 

7012 


RTR 



0711 

2525 

7010 


RAR 



0712 

25 26 

7041 


CIA 


/MAX POSSIBLE COUNT, THIS TRACK 

0713 






/LINK CLEAR UNLESS COUNT =4096 

0714 

25 27 

3364 


DC A 

DKLEN 

/ASSUMED OPERATION LENGTH 

0715 

2530 

7240 


MONE 



0716 

2531 

3365 


DC A 

DKMORE 

/SET SWITCH 

0717 

2532 

1364 


TAD 

DKLEN 


07 20 

25 33 

1217 


TAO 

DKQP+4 

/COMPARE REMAINING REQUEST 

0721 

2534 

7620 


SNL CLA 


/SKIP IF REQUEST LESS OR EQ 

0722 

2535 

53 42 


JMP 

DKWC 


07 23 

25 36 

1217 


TAD 

DKQP+4 

/REQUEST LEN 

0724 

2537 

7041 


CIA 



0725 

2540 

3364 


DC A 

DKLEN 

/IS LENGTH OF OP 

0726 

2541 

3365 


DC A 

DKMORE 

/CLEAR SWITCH 

0727 

2542 

1364 

DKWC, 

TAD 

DKLEN 


07 30 

25 43 

70 41 


CIA 



0731 

2544 

6 7 53 


DLWC 


/LOAD WORD COUNT 

0732 

2545 

1220 


TAD 

DKQP+5 

/BLOCK NO 

0733 

2546 

6733 

DKOP, 

DIOR 


/READ OR WRITE COMMAND 

0734 

25 4 7 

6747 


DSKE 


/CHECK IMMEDIATE ERROR 

0735 

2550 

5701 


JMP I 

DSKDO 


07 36 



/ 




0737 

25 51 

6741 

DKERR, 

DR DS 


/READ ERROR STATUS 

0740 

2552 

3367 


DC A 

DKSTAT 


0741 

2553 

6742 


DCLS 



0742 

2554 

7327 


SIX 


/DISK ERROR 

0743 

2555 

5552 


JMP I 

merkor 


07 44 



/ 




0745 




EJECT 







0746 



/ 



0747 

2556 

6076 

P6076, 

6076 


07 50 

2557 

0017 

P17, 

17 


0751 

25 60 

0020 

P20, 

20 


0752 

25 61 

77 60 

M2 0i 

-20 


07 53 

25 62 

67 33 

DK RE AO i 

DIDR 


0754 

2563 

0036 

DKFAT. 

36 

/FATAL err bits 

07 55 

25 64 

00 00 

OKIEN, 

0 


0756 

2565 

00 00 

DKMORE. 

0 

/-I IF MORE TO TRANSFER 

07 57 

25 66 

7775 

DKRTRY . 

-3 

/RETRY COUNTER 

0760 

2567 

0000 

DK ST AT , 

0 

/STATUS AT ERROR 

0761 



/ 



0762 



/ 



07 63 



/ 



0764 



/ 



07 65 




EJECT 




0766 



/ 



0767 




LIST 


0770 



/ 



0771 




ASMIF2 

RF 08 

0772 




NOLIST 


1210 



/ 



1211 




ME NQ =, 51 

77 /END OF RESIDENT MONITOR 

1212 



/ 



1213 




AS MI FN 

DIAL 

1214 




NOLIST 


1215 




ASM1FN 

DI AL 

1216 




ASMSKP 

1522-1220 

1217 



/ 



1220 



/ 

INITIAL 

LOADING BOOTSTRAP 

12 21 



/ 

ON A IP V 

OLUMES, THIS IS THE 

1222 



/ 

FIRST BL 

OCK OF THE MONITOR, 

12 23 



/ 



1224 



/ 

IF LOADED FROM TAPE, IT IS READ INTO 6000- 

12 25 



/ 

AND ENTERED AT 6 010, 

1226 



/ 

IF LOADED FROM DISK. IT MAY BE AT OR BELOW 

12 27 



/ 

IN FIELD 

0, ANO ENTERED AT RELATIVE 0, 

1230 



/ 

IT WILL 

THEN MOVE ITSELF TO 6000. 

12 31 



/ 



1232 




FIELD 

0 

1233 




»6 00 0 


1234 



/ 



12 35 



/ 

ENTER HERE IF DISK LOAD 

1236 



/ 

LOADED AODRESSES ARE ONE GREATER 

1237 



/ 

THAN ASSEMBLED ADDRESSES, 

1240 



/ 



1241 

60 00 

72 00 


CL A 


1242 

6001 

3343 


DCA 

IPL0SK*1/SET DISK-LOAD SWITCH 

1243 

6002 

1265 


TAD 

116+1 /POINT TO X INFO 

1244 

6003 

3013 


DCA 

1X3 

1245 

6004 

4353 


JMS 

IMOVE+1 /COPY THIS TO 6000 

1246 



/ 



1247 




«6010 


1250 



/ 



12 51 



/ 

ENTER HERE IF TAPE LOAD 

1252 



/ 



1253 

6010 

7200 


CLA 

/CLEAR CHECKSUM FROM AC 

1254 

6011 

1265 


TAD 

14015 /POINT TO INFO 

12 55 

6012 

3013 


OCA 

1X3 

1256 



/ 



1257 



/ 

COLLECT 

NECESSARY INDEX INFORMATION 

1260 



/ 



12 61 

6013 

72 01 

INFO , 

ONE 


1262 

6014 

1413 


TAD I 

1X3 /TRUE MON START 

1263 

60 15 

33 43 


DCA 

IM ST /SAVE 

1264 

6016 

7240 


mone 


12 65 

6017 

1413 


TAD I 

1X3 /MONITOR LENGTH 

1266 

6020 

7041 


CIA 


12 67 

6021 

3344 


OCA 

IMLEN /MINUS MONITOR LENGTH 

1270 

6022 

7327 


SIX 


12 71 

60 23 

1013 


TAD 

1X3 /BUMP TO JCL INFORMATION 

1272 

6024 

3013 


DCA 

1X3 

1273 

6025 

1413 


TAD I 

1X3 /JCL START BLOCK 

J’74 

6026 

3345 


DCA 

IJST 

5 

6027 

1413 


TAO I 

1X3 /JCL LF 'H 

6 

6030 

3346 


DCA 

IJLEN 

12 77 



/ 





3 


1301 



/ 




1302 



/ 

NOW WE 

READ THE 

MONI TOR 

1303 



/ 




13 04 

60 31 

23 42 


IS i 

IPLDSK 

/WAS IT DISK? 

1305 

6032 

5270 


JMP 

ILMDSK 

/YES-LOAD MONITOR FROM DISK 

1306 

6033 

13 43 


TAD 

IMST 

/START BLOCK 

1307 

6034 

1266 


TAD 

14000 

/TRANSFER in data seg 

1310 

6035 

3241 


DC A 

ITBLK 


1311 

6036 

6141 

ITLOOP, 

LINC 



1312 




IMODE 



1313 

0037 

06 40 

ITLDF, 

LDF 

0 

/SET SEGMENT 

1314 

00 40 

07 02 


ROE 


/READ 1 BLOCK 

1315 

0041 

00 00 

ITBLK, 

0 


/tape block 

1316 

00 42 

00 02 


PD P 



1317 




PMODE 



1320 

60 43 

70 40 


CHA 



1321 

6044 

7640 


SEA CLA 


/CHECKSUM CORRECT? 

13 22 

60 45 

52 36 


JMP 

ITLOOP 

/NO 

1323 

6046 

73 00 


CLA CLL 



13 24 

6047 

12 41 


TAD 

ITBLK 


13 25 

6050 

1267 


TAD 

11001 

/BUMP TBLKSMBLK 

13 26 

60 51 

32 41 


OCA 

ITBLK 


1327 

60 52 

7430 


S2L 


/SAME SEGMENT? 

1330 

6053 

5257 


JMP 

ITBUMP 

/no°special handling 

1331 

6054 

23 44 

itlchk, 

ISZ 

imlen 

/LAST BLOCK? 

13 32 

6055 

52 36 


JMP 

ITLOOP 

/NO-GET NEXT 

1333 

6056 

5313 


JMP 

IBOOT 

/YES-SETUP JCBOOT 

1334 



/ 




1335 



/ 




13 36 

60 57 

22 37 

itbump, 

IS 2 

jtldf 

/NEXT SEGMENT 

1337 

60 60 

12 41 


TAD 

ITBLK 


1340 

6061 

12 66 


TAD 

14 000 

/SET DF BIT AGAIN 

1341 

60 62 

3241 


DC A 

ITBLK 


13 42 

60 63 

52 54 


JMP 

itlchk 


13 43 



/ 




13 44 

60 64 

0016 

116, 

16 



13 45 

60 65 
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